[perl5.git] / eg / ADB

#!/usr/bin/perl

# $RCSfile: ADB,v $$Revision: 4.1 $$Date: 92/08/07 17:20:06 $

# This script is only useful when used in your crash directory.

$num = shift;
exec 'adb', '-k', "vmunix.$num", "vmcore.$num";
Commit	Line	Data
378cc40b LW	1	#!/usr/bin/perl
378cc40b LW	2
79072805	3	# $RCSfile: ADB,v $$Revision: 4.1 $$Date: 92/08/07 17:20:06 $
378cc40b LW	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";