Forgot to check in the -d: file.

p4raw-id: //depot/perl@19381

diff --git a/MANIFEST b/MANIFEST
index c0d90bc..62b5361 100644 (file)
--- 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 (file)
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 (file)
--- 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);