diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-06-16 08:29:10 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-06-16 08:29:10 +0000 |
| commit | f5542d3a54f14f881b60902316767ce068dbe5dd (patch) | |
| tree | 8c330773a13d8b19c671757f8194155a32129adb /ext/Devel | |
| parent | dc1061dcf24d13f751b01c1228673c4d12010ea3 (diff) | |
| download | perl-f5542d3a54f14f881b60902316767ce068dbe5dd.tar.gz | |
Revert part of change #24854
p4raw-link: @24854 on //depot/perl: ab019eaa775fdcae8aaf709315c7ba85a788ee6c
p4raw-id: //depot/perl@24861
Diffstat (limited to 'ext/Devel')
| -rw-r--r-- | ext/Devel/DProf/t/DProf.t | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/ext/Devel/DProf/t/DProf.t b/ext/Devel/DProf/t/DProf.t index 84bc9272e3..afffaeaaa4 100644 --- a/ext/Devel/DProf/t/DProf.t +++ b/ext/Devel/DProf/t/DProf.t @@ -17,7 +17,6 @@ END { } use Benchmark qw( timediff timestr ); -use Config; use Getopt::Std 'getopts'; getopts('vI:p:'); @@ -46,11 +45,10 @@ sub profile { my $test = shift; my @results; local $ENV{PERL5LIB} = $perl5lib; - my $opt_f = $Config{ccflags} =~ /USE_SITECUSTOMIZE/ ? '-f' : ''; my $opt_d = '-d:DProf'; my $t_start = new Benchmark; - open( R, "$perl $opt_f \"$opt_d\" $test |" ) || warn "$0: Can't run. $!\n"; + open( R, "$perl -f \"$opt_d\" $test |" ) || warn "$0: Can't run. $!\n"; @results = <R>; close R or warn "Could not close: $!"; my $t_total = timediff( new Benchmark, $t_start ); |