perl 5.000
[p5sagit/p5-mst-13.2.git] / eg / ADB
1 #!/usr/bin/perl
2
3 # $RCSfile: ADB,v $$Revision: 4.1 $$Date: 92/08/07 17:20:06 $
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";