This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update Scalar-List-Utils to CPAN version 1.37
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Tue, 21 Jan 2014 14:57:36 +0000 (14:57 +0000)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Tue, 21 Jan 2014 14:57:36 +0000 (14:57 +0000)
  [DELTA]

1.37 -- 2014/01/21 14:44:34
   [BUGFIXES]
   * Fix unweaken() for perls < 5.14; need to use sv_setsv() to undef
     rather than sv_clear() (RT92226)

Porting/Maintainers.pl
cpan/Scalar-List-Utils/ListUtil.xs
cpan/Scalar-List-Utils/lib/List/Util.pm
cpan/Scalar-List-Utils/lib/List/Util/XS.pm
cpan/Scalar-List-Utils/lib/Scalar/Util.pm
cpan/Scalar-List-Utils/t/weak.t

index 2b1568a..1561083 100755 (executable)
@@ -976,7 +976,7 @@ use File::Glob qw(:case);
     },
 
     'Scalar-List-Utils' => {
-        'DISTRIBUTION' => 'PEVANS/Scalar-List-Utils-1.36.tar.gz',
+        'DISTRIBUTION' => 'PEVANS/Scalar-List-Utils-1.37.tar.gz',
         'FILES'    => q[cpan/Scalar-List-Utils],
     },
 
index af869ce..2add2ac 100644 (file)
@@ -965,7 +965,7 @@ CODE:
     /* Lacking sv_del_backref() the best we can do is clear the old (weak) ref
      * then set a new strong one
      */
-    sv_clear(sv);
+    sv_setsv(sv, &PL_sv_undef);
     SvRV_set(sv, SvREFCNT_inc_NN(tsv));
     SvROK_on(sv);
 #endif
index 429ad3e..3c5f19b 100644 (file)
@@ -14,7 +14,7 @@ our @EXPORT_OK  = qw(
   all any first min max minstr maxstr none notall product reduce sum sum0 shuffle
   pairmap pairgrep pairfirst pairs pairkeys pairvalues
 );
-our $VERSION    = "1.36";
+our $VERSION    = "1.37";
 our $XS_VERSION = $VERSION;
 $VERSION    = eval $VERSION;
 
index 15f581d..3aa3f7a 100644 (file)
@@ -2,7 +2,7 @@ package List::Util::XS;
 use strict;
 use List::Util;
 
-our $VERSION = "1.36";       # FIXUP
+our $VERSION = "1.37";       # FIXUP
 $VERSION = eval $VERSION;    # FIXUP
 
 1;
index 6b97719..247d4ea 100644 (file)
@@ -16,7 +16,7 @@ our @EXPORT_OK = qw(
 
   dualvar isdual isvstring looks_like_number openhandle readonly set_prototype tainted
 );
-our $VERSION    = "1.36";
+our $VERSION    = "1.37";
 $VERSION   = eval $VERSION;
 
 our @EXPORT_FAIL;
index 266640a..842f3f8 100644 (file)
@@ -17,7 +17,7 @@ BEGIN {
 use Scalar::Util ();
 use Test::More  ((grep { /weaken/ } @Scalar::Util::EXPORT_FAIL) and !$ENV{PERL_CORE})
                        ? (skip_all => 'weaken requires XS version')
-                       : (tests => 27);
+                       : (tests => 28);
 
 Scalar::Util->import(qw(weaken unweaken isweak));
 
@@ -143,6 +143,7 @@ my $flag;
 
   unweaken($y);
 
+  is(ref $y, "SCALAR", '$y is still a SCALAR ref after unweaken()');
   ok(!isweak($y), '$y is not weak after unweaken()');
   is($$y, "foo", '$y points at \"foo" after unweaken()');