r55540 - in /trunk/libfreezethaw-perl: Changes FreezeThaw.pm META.yml debian/changelog

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

Author: jawnsy-guest
Date: Tue Apr  6 19:31:41 2010
New Revision: 55540

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=55540
Log:
New upstream release

Modified:
    trunk/libfreezethaw-perl/Changes
    trunk/libfreezethaw-perl/FreezeThaw.pm
    trunk/libfreezethaw-perl/META.yml
    trunk/libfreezethaw-perl/debian/changelog

Modified: trunk/libfreezethaw-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfreezethaw-perl/Changes?rev=55540&op=diff
==============================================================================
--- trunk/libfreezethaw-perl/Changes (original)
+++ trunk/libfreezethaw-perl/Changes Tue Apr  6 19:31:41 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: trunk/libfreezethaw-perl/FreezeThaw.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfreezethaw-perl/FreezeThaw.pm?rev=55540&op=diff
==============================================================================
--- trunk/libfreezethaw-perl/FreezeThaw.pm (original)
+++ trunk/libfreezethaw-perl/FreezeThaw.pm Tue Apr  6 19:31:41 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: trunk/libfreezethaw-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfreezethaw-perl/META.yml?rev=55540&op=diff
==============================================================================
--- trunk/libfreezethaw-perl/META.yml (original)
+++ trunk/libfreezethaw-perl/META.yml Tue Apr  6 19:31:41 2010
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               FreezeThaw
-version:            0.50
+version:            0.5001
 abstract:           ~
 author:
     - Ilya Zakharevich <ilyaz at cpan.org>

Modified: trunk/libfreezethaw-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfreezethaw-perl/debian/changelog?rev=55540&op=diff
==============================================================================
--- trunk/libfreezethaw-perl/debian/changelog (original)
+++ trunk/libfreezethaw-perl/debian/changelog Tue Apr  6 19:31:41 2010
@@ -1,3 +1,9 @@
+libfreezethaw-perl (0.5001-1) UNRELEASED; urgency=low
+
+  * New upstream release
+
+ -- Jonathan Yu <jawnsy at cpan.org>  Tue, 06 Apr 2010 16:02:32 -0400
+
 libfreezethaw-perl (0.50-1) unstable; urgency=low
 
   [ Jonathan Yu ]