diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-01-04 03:49:34 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-01-04 03:49:34 +0000 |
| commit | 657bcc6cf0afff6a635423fbb916356e287d8124 (patch) | |
| tree | cc5c45f146387607efa77421078877d38c2fe52f /lib | |
| parent | 08c7333655b2b77f17d6917de7a416ee89b3f81f (diff) | |
| download | perl-657bcc6cf0afff6a635423fbb916356e287d8124.tar.gz | |
To go with change #18404.
p4raw-link: @18404 on //depot/maint-5.8/perl: 2c2984264f059ab8f6d12a63dd72e9ba5dad935c
p4raw-id: //depot/maint-5.8/perl@18427
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Attribute/Handlers/t/multi.t | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/Attribute/Handlers/t/multi.t b/lib/Attribute/Handlers/t/multi.t index 7379afd537..db00b1c933 100644 --- a/lib/Attribute/Handlers/t/multi.t +++ b/lib/Attribute/Handlers/t/multi.t @@ -191,7 +191,10 @@ ok( $match, 52 ); my ($code_applied, $scalar_applied); sub Scotty :ATTR(CODE,BEGIN) { $code_applied = $_[5] } +{ +no warnings 'redefine'; sub Scotty :ATTR(SCALAR,CHECK) { $scalar_applied = $_[5] } +} sub warp_coil :Scotty {} my $photon_torpedo :Scotty; |