Change 30059 by [EMAIL PROTECTED] on 2007/01/29 16:54:38
Avoid test failure with for a -Dusesitecustomize perl.
Affected files ...
... //depot/perl/t/run/switchd.t#6 edit
Differences ...
==== //depot/perl/t/run/switchd.t#6 (text) ====
Index: perl/t/run/switchd.t
--- perl/t/run/switchd.t#5~29056~ 2006-10-19 13:47:53.000000000 -0700
+++ perl/t/run/switchd.t 2007-01-29 08:54:38.000000000 -0800
@@ -34,13 +34,13 @@
push @tmpfiles, $filename;
$| = 1; # Unbufferize.
$r = runperl(
- switches => [ '-Ilib', '-d:switchd' ],
+ switches => [ '-Ilib', '-f', '-d:switchd' ],
progfile => $filename,
args => ['3'],
);
like($r,
qr/^sub<Devel::switchd::import>;import<Devel::switchd>;DB<main,swdtest.tmp,9>;sub<Foo::foo>;DB<Foo,swdtest.tmp,5>;DB<Foo,swdtest.tmp,6>;DB<Foo,swdtest.tmp,6>;sub<Bar::bar>;DB<Bar,swdtest.tmp,2>;sub<Bar::bar>;DB<Bar,swdtest.tmp,2>;sub<Bar::bar>;DB<Bar,swdtest.tmp,2>;$/);
$r = runperl(
- switches => [ '-Ilib', '-d:switchd=a,42' ],
+ switches => [ '-Ilib', '-f', '-d:switchd=a,42' ],
progfile => $filename,
args => ['4'],
);
End of Patch.
