Change 18427 by jhi@lyta on 2003/01/04 03:49:34
To go with change #18404.
Affected files ...
... //depot/maint-5.8/perl/lib/Attribute/Handlers/t/multi.t#3 edit
Differences ...
==== //depot/maint-5.8/perl/lib/Attribute/Handlers/t/multi.t#3 (text) ====
Index: perl/lib/Attribute/Handlers/t/multi.t
--- perl/lib/Attribute/Handlers/t/multi.t#2~18404~ Thu Jan 2 18:54:46 2003
+++ perl/lib/Attribute/Handlers/t/multi.t Fri Jan 3 19:49:34 2003
@@ -191,7 +191,10 @@
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;
End of Patch.
