From: Gisle Aas <gisle@activestate.com>
Date: Mon, 29 Jan 2007 16:54:38 +0000 (+0000)
Subject: Avoid test failure with for a -Dusesitecustomize perl.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e30fbb82116d47ef2569f2af20359965dc7fcae1;p=p5sagit%2Fp5-mst-13.2.git

Avoid test failure with for a -Dusesitecustomize perl.

p4raw-id: //depot/perl@30059
---

diff --git a/t/run/switchd.t b/t/run/switchd.t
index 30ae53b..e4f2706 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'],
 		);