diff options
author | Steve Peters <steve@fisharerojo.org> | 2008-01-01 23:46:55 +0000 |
---|---|---|
committer | Steve Peters <steve@fisharerojo.org> | 2008-01-01 23:46:55 +0000 |
commit | 13e592d26647394079c61bb6e516c8e42802bf31 (patch) | |
tree | 5fbc8a3fc58882b2f7d6dbb00b2603e34c9ef3db | |
parent | 483e88ad226f66ca6deefce55919b08c583c82aa (diff) | |
download | perl-13e592d26647394079c61bb6e516c8e42802bf31.tar.gz |
Upgrade to constant-1.15
p4raw-id: //depot/perl@32800
-rw-r--r-- | lib/constant.pm | 2 | ||||
-rw-r--r-- | lib/constant.t | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/lib/constant.pm b/lib/constant.pm index cc3ee98c4b..2c8355371d 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 01b7c006cc..3f146c600b 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 \(\)/, |