diff options
| author | Gisle Aas <gisle@activestate.com> | 2007-01-29 16:54:38 +0000 |
|---|---|---|
| committer | Gisle Aas <gisle@activestate.com> | 2007-01-29 16:54:38 +0000 |
| commit | e30fbb82116d47ef2569f2af20359965dc7fcae1 (patch) | |
| tree | f3aed03d50330ae9c0ab782de571e17ee87bf2da /t/run | |
| parent | f071ed12d768b92e96fb1ecf3f2ac6262bc75f07 (diff) | |
| download | perl-e30fbb82116d47ef2569f2af20359965dc7fcae1.tar.gz | |
Avoid test failure with for a -Dusesitecustomize perl.
p4raw-id: //depot/perl@30059
Diffstat (limited to 't/run')
| -rw-r--r-- | t/run/switchd.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/run/switchd.t b/t/run/switchd.t index 30ae53bfcd..e4f27068b9 100644 --- a/t/run/switchd.t +++ b/t/run/switchd.t @@ -34,13 +34,13 @@ __SWDTEST__ 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'], ); |