From: Steve Peters <steve@fisharerojo.org>
Date: Tue, 1 Jan 2008 23:46:55 +0000 (+0000)
Subject: Upgrade to constant-1.15
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=13e592d26647394079c61bb6e516c8e42802bf31;p=p5sagit%2Fp5-mst-13.2.git

Upgrade to constant-1.15

p4raw-id: //depot/perl@32800
---

diff --git a/lib/constant.pm b/lib/constant.pm
index cc3ee98..2c83553 100644
--- a/lib/constant.pm
+++ b/lib/constant.pm
@@ -4,7 +4,7 @@ use strict;
 use warnings::register;
 
 use vars qw($VERSION %declared);
-$VERSION = '1.13';
+$VERSION = '1.15';
 
 #=======================================================================
 
diff --git a/lib/constant.t b/lib/constant.t
index 01b7c00..3f146c6 100644
--- a/lib/constant.t
+++ b/lib/constant.t
@@ -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 \(\)/,