Change 32800 by [EMAIL PROTECTED] on 2008/01/01 23:46:55
Upgrade to constant-1.15
Affected files ...
... //depot/perl/lib/constant.pm#30 edit
... //depot/perl/lib/constant.t#11 edit
Differences ...
==== //depot/perl/lib/constant.pm#30 (text) ====
Index: perl/lib/constant.pm
--- perl/lib/constant.pm#29~32338~ 2007-11-16 08:40:11.000000000 -0800
+++ perl/lib/constant.pm 2008-01-01 15:46:55.000000000 -0800
@@ -4,7 +4,7 @@
use warnings::register;
use vars qw($VERSION %declared);
-$VERSION = '1.13';
+$VERSION = '1.15';
#=======================================================================
==== //depot/perl/lib/constant.t#11 (text) ====
Index: perl/lib/constant.t
--- perl/lib/constant.t#10~32338~ 2007-11-16 08:40:11.000000000 -0800
+++ perl/lib/constant.t 2008-01-01 15:46:55.000000000 -0800
@@ -305,7 +305,7 @@
eval 'use constant zit => 4; 1' or die $@;
# empty prototypes are reported differently in different versions
- my $no_proto = $] < 5.008 ? "" : ": none";
+ my $no_proto = $] < 5.008004 ? "" : ": none";
is(scalar @warnings, 1, "1 warning");
like ($warnings[0], qr/^Prototype mismatch: sub main::zit$no_proto vs
\(\)/,
End of Patch.
