From 13e592d26647394079c61bb6e516c8e42802bf31 Mon Sep 17 00:00:00 2001 From: Steve Peters Date: Tue, 1 Jan 2008 23:46:55 +0000 Subject: Upgrade to constant-1.15 p4raw-id: //depot/perl@32800 --- lib/constant.pm | 2 +- 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 \(\)/, -- cgit v1.2.1