diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2006-03-02 22:21:26 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-03-03 15:45:32 +0000 |
| commit | 964b4e64c4d43990c57a48ba8eca4e6454ba5693 (patch) | |
| tree | 5fc32594fd735cb4da122226dedebaf59c696d85 /t/lib/Devel | |
| parent | b6a7163e84fec2ee27fc3d0c252e50424d27241f (diff) | |
| download | perl-964b4e64c4d43990c57a48ba8eca4e6454ba5693.tar.gz | |
Re: [perl #38657] -d:Foo=bar broke in 5.8.8
Message-ID: <440737A6.4060606@gmail.com>
p4raw-id: //depot/perl@27368
Diffstat (limited to 't/lib/Devel')
| -rw-r--r-- | t/lib/Devel/switchd.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/t/lib/Devel/switchd.pm b/t/lib/Devel/switchd.pm index 4a657bef91..e5b062911d 100644 --- a/t/lib/Devel/switchd.pm +++ b/t/lib/Devel/switchd.pm @@ -1,6 +1,8 @@ package Devel::switchd; use strict; BEGIN { } # use strict; BEGIN { ... } to incite [perl #21890] +sub import { print "import<@_>;" } package DB; -sub DB { print join(",", caller), ";" } +sub DB { print "DB<", join(",", caller), ">;" } +sub sub { print "sub<$DB::sub>;"; goto &$DB::sub } 1; |