Changeset 681 for ktrace

Timestamp:

03/07/07 14:23:44 (3 years ago)

Author:

vasi

Message:

allow arbitrary commands

Files:

• ktrace/branches/pure-perl/ktrace.pl (modified) (1 diff)

ktrace/branches/pure-perl/ktrace.pl

@@ -3 +3 @@
 use strict;
 
-require 'Trace.pm';
+use File::Basename qw(dirname);
 
+require ((dirname __FILE__) . "/Trace.pm");
 
 my $trace = Fink::Trace->new;
 $trace->start;
 
-system('grep -Ir http /usr/include/php > /dev/null');
+system(@ARGV);
 
 $trace->stop;