Change 33586 by [EMAIL PROTECTED] on 2008/03/28 13:04:50
Integrate:
[ 32883]
Silence new warning grep in void context warning in various modules and
test files, also silence a warning that came from a previous 'dev' version
number bump.
[ 32884]
dev version numbers, xs and warnings dont play together nicely, so use
MM->parse_version() to smooth over the cracks....
Affected files ...
... //depot/maint-5.10/perl/ext/GDBM_File/GDBM_File.pm#2 integrate
... //depot/maint-5.10/perl/ext/GDBM_File/Makefile.PL#2 integrate
... //depot/maint-5.10/perl/ext/GDBM_File/t/gdbm.t#2 integrate
... //depot/maint-5.10/perl/lib/CGI/t/no_tabindex.t#2 integrate
Differences ...
==== //depot/maint-5.10/perl/ext/GDBM_File/GDBM_File.pm#2 (text) ====
Index: perl/ext/GDBM_File/GDBM_File.pm
--- perl/ext/GDBM_File/GDBM_File.pm#1~32694~ 2007-12-22 01:23:09.000000000
-0800
+++ perl/ext/GDBM_File/GDBM_File.pm 2008-03-28 06:04:50.000000000 -0700
@@ -68,7 +68,8 @@
GDBM_WRITER
);
-$VERSION = "1.08";
+$VERSION = "1.08_01";
+$VERSION = eval $VERSION; # Needed for dev versions
sub AUTOLOAD {
my($constname);
==== //depot/maint-5.10/perl/ext/GDBM_File/Makefile.PL#2 (text) ====
Index: perl/ext/GDBM_File/Makefile.PL
--- perl/ext/GDBM_File/Makefile.PL#1~32694~ 2007-12-22 01:23:09.000000000
-0800
+++ perl/ext/GDBM_File/Makefile.PL 2008-03-28 06:04:50.000000000 -0700
@@ -7,6 +7,7 @@
XSPROTOARG => '-noprototypes', # XXX remove later?
VERSION_FROM => 'GDBM_File.pm',
realclean => {FILES=> 'const-c.inc const-xs.inc'},
+ XS_VERSION => eval MM->parse_version('GDBM_File.pm'), #silence warnings if
we are a dev release
);
WriteConstants(
NAME => 'GDBM_File',
==== //depot/maint-5.10/perl/ext/GDBM_File/t/gdbm.t#2 (xtext) ====
Index: perl/ext/GDBM_File/t/gdbm.t
--- perl/ext/GDBM_File/t/gdbm.t#1~32694~ 2007-12-22 01:23:09.000000000
-0800
+++ perl/ext/GDBM_File/t/gdbm.t 2008-03-28 06:04:50.000000000 -0700
@@ -487,7 +487,7 @@
$h{"fred"} = "joe" ;
ok(76, $h{"fred"} eq "joe");
- eval { grep { $h{$_} } (1, 2, 3) };
+ eval { my @r= grep { $h{$_} } (1, 2, 3) };
ok (77, ! $@);
@@ -503,7 +503,7 @@
ok(79, $db->FIRSTKEY() eq "fred") ;
- eval { grep { $h{$_} } (1, 2, 3) };
+ eval { my @r= grep { $h{$_} } (1, 2, 3) };
ok (80, ! $@);
undef $db ;
End of Patch.
