This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl 3.0 patch #40 patch #38, continued
[perl5.git] / eg / ADB
1 #!/usr/bin/perl
2
3 # $Header: ADB,v 3.0 89/10/18 15:13:04 lwall Locked $
4
5 # This script is only useful when used in your crash directory.
6
7 $num = shift;
8 exec 'adb', '-k', "vmunix.$num", "vmcore.$num";