From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 2 May 2003 15:12:47 +0000 (+0000)
Subject: Forgot to check in the -d: file.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=54f45c29ffd76a941dd03fe5df68c5e990b2ee8d;p=p5sagit%2Fp5-mst-13.2.git

Forgot to check in the -d: file.

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

diff --git a/MANIFEST b/MANIFEST
index c0d90bc..62b5361 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -2462,6 +2462,7 @@ t/japh/abigail.t		Obscure tests
 t/lib/1_compile.t		See if the various libraries and extensions compile
 t/lib/commonsense.t		See if configuration meets basic needs
 t/lib/compmod.pl		Helper for 1_compile.t
+t/lib/Devel/switchd.pm		Module for t/run/switchd.t
 t/lib/dprof/test1_t		Perl code profiler tests
 t/lib/dprof/test1_v		Perl code profiler tests
 t/lib/dprof/test2_t		Perl code profiler tests
diff --git a/t/lib/Devel/switchd.pm b/t/lib/Devel/switchd.pm
new file mode 100644
index 0000000..b034364
--- /dev/null
+++ b/t/lib/Devel/switchd.pm
@@ -0,0 +1,6 @@
+package Devel::DevelTest;
+use strict; BEGIN { } # use strict; BEGIN { ... } to incite [perl #21890]
+package DB;
+sub DB { print join(",", caller), ";" }
+1;
+
diff --git a/t/run/switchd.t b/t/run/switchd.t
index 83d4976..91efbef 100644
--- a/t/run/switchd.t
+++ b/t/run/switchd.t
@@ -32,7 +32,7 @@ __SWDTEST__
     push @tmpfiles, $filename;
     $| = 1; # Unbufferize.
     $r = runperl(
-		 switches => [ '-Ilib', '-d:DevelTest' ],
+		 switches => [ '-Ilib', '-d:switchd' ],
 		 progfile => $filename,
 		);
     like($r, qr/^main,swdtest.tmp,9;Foo,swdtest.tmp,5;Foo,swdtest.tmp,6;Foo,swdtest.tmp,6;Bar,swdtest.tmp,2;Foo,swdtest.tmp,6;Bar,swdtest.tmp,2;Foo,swdtest.tmp,6;Bar,swdtest.tmp,2;Foo,swdtest.tmp,6;$/i);