Upgrade to constant-1.15
authorSteve Peters <steve@fisharerojo.org>
Tue, 1 Jan 2008 23:46:55 +0000 (23:46 +0000)
committerSteve Peters <steve@fisharerojo.org>
Tue, 1 Jan 2008 23:46:55 +0000 (23:46 +0000)
p4raw-id: //depot/perl@32800

lib/constant.pm
lib/constant.t

index cc3ee98..2c83553 100644 (file)
@@ -4,7 +4,7 @@ use strict;
 use warnings::register;
 
 use vars qw($VERSION %declared);
-$VERSION = '1.13';
+$VERSION = '1.15';
 
 #=======================================================================
 
index 01b7c00..3f146c6 100644 (file)
@@ -305,7 +305,7 @@ sub zit;
     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 \(\)/,