r55536 - in /branches/upstream/libfreezethaw-perl/current: Changes FreezeThaw.pm META.yml

[jawnsy-guest at users.alioth.debian.org]

Author: jawnsy-guest
Date: Tue Apr  6 19:26:52 2010
New Revision: 55536

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=55536
Log:
[svn-upgrade] Integrating new upstream version, libfreezethaw-perl (0.5001)

Modified:
    branches/upstream/libfreezethaw-perl/current/Changes
    branches/upstream/libfreezethaw-perl/current/FreezeThaw.pm
    branches/upstream/libfreezethaw-perl/current/META.yml

Modified: branches/upstream/libfreezethaw-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libfreezethaw-perl/current/Changes?rev=55536&op=diff
==============================================================================
--- branches/upstream/libfreezethaw-perl/current/Changes (original)
+++ branches/upstream/libfreezethaw-perl/current/Changes Tue Apr  6 19:26:52 2010
@@ -33,4 +33,8 @@
 Version 0.5
 	Support RExes of 5.11 and later (XXXX but not yet reblessed ones...)
 		(prototype by Andreas Koenig)
+Version 0.5001
+	Switch to a course version-check to recognize that regexps are
+		first-level (otherwise would need to rely on Scalar::Utils).
+		(Tested to work with 5.8, 5.10, 5.11.)
 

Modified: branches/upstream/libfreezethaw-perl/current/FreezeThaw.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libfreezethaw-perl/current/FreezeThaw.pm?rev=55536&op=diff
==============================================================================
--- branches/upstream/libfreezethaw-perl/current/FreezeThaw.pm (original)
+++ branches/upstream/libfreezethaw-perl/current/FreezeThaw.pm Tue Apr  6 19:26:52 2010
@@ -285,7 +285,7 @@
 use Exporter;
 
 @ISA = qw(Exporter);
-$VERSION = '0.50';
+$VERSION = '0.5001';
 @EXPORT_OK = qw(freeze thaw cmpStr cmpStrHard safeFreeze);
 
 use strict;
@@ -312,7 +312,8 @@
 
 BEGIN {				# allow optimization away
   my $haveIsRex = defined &re::is_regexp;
-  my $RexIsREGEXP = ($haveIsRex and 'REGEXP' eq ref qr/1/); # First-class REX
+  my $RexIsREGEXP = ($haveIsRex and # 'REGEXP' eq ref qr/1/); # First-class REX
+		     $] >= 5.011); # Code like above requires Scalar::Utils::reftype
   eval <<EOE or die;
 sub haveIsRex () {$haveIsRex}
 sub RexIsREGEXP () {$RexIsREGEXP}
@@ -328,7 +329,7 @@
 	      CODE    => 1,		# 1 means atomic
 	      GLOB    => 1,
 	      (RexIsREGEXP
-		? (REGEXP => sub {my $qr = qr//})
+		? (Regexp => sub {my $qr = qr//})
 		: (Regexp => 0)),
 	 );
 

Modified: branches/upstream/libfreezethaw-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libfreezethaw-perl/current/META.yml?rev=55536&op=diff
==============================================================================
--- branches/upstream/libfreezethaw-perl/current/META.yml (original)
+++ branches/upstream/libfreezethaw-perl/current/META.yml Tue Apr  6 19:26:52 2010
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               FreezeThaw
-version:            0.50
+version:            0.5001
 abstract:           ~
 author:
     - Ilya Zakharevich <ilyaz at cpan.org>