r23101 - in /branches/upstream/libclone-perl/current: Clone.pm Clone.xs META.yml

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

Author: ansgar-guest
Date: Sun Jul 13 11:33:01 2008
New Revision: 23101

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

Modified:
    branches/upstream/libclone-perl/current/Clone.pm
    branches/upstream/libclone-perl/current/Clone.xs
    branches/upstream/libclone-perl/current/META.yml

Modified: branches/upstream/libclone-perl/current/Clone.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclone-perl/current/Clone.pm?rev=23101&op=diff
==============================================================================
--- branches/upstream/libclone-perl/current/Clone.pm (original)
+++ branches/upstream/libclone-perl/current/Clone.pm Sun Jul 13 11:33:01 2008
@@ -1,4 +1,4 @@
-# $Id: Clone.pm,v 0.28 2007-10-15 04:52:42 ray Exp $
+# $Id: Clone.pm,v 0.29 2008-07-12 16:49:01 ray Exp $
 package Clone;
 
 use strict;
@@ -16,7 +16,7 @@
 @EXPORT = qw();
 @EXPORT_OK = qw( clone );
 
-$VERSION = '0.28';
+$VERSION = '0.29';
 
 bootstrap Clone $VERSION;
 

Modified: branches/upstream/libclone-perl/current/Clone.xs
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclone-perl/current/Clone.xs?rev=23101&op=diff
==============================================================================
--- branches/upstream/libclone-perl/current/Clone.xs (original)
+++ branches/upstream/libclone-perl/current/Clone.xs Sun Jul 13 11:33:01 2008
@@ -4,7 +4,7 @@
 #include "perl.h"
 #include "XSUB.h"
 
-static char *rcs_id = "$Id: Clone.xs,v 0.27 2007-10-15 04:52:42 ray Exp $";
+static char *rcs_id = "$Id: Clone.xs,v 0.28 2008-07-12 16:49:01 ray Exp $";
 
 #define CLONE_KEY(x) ((char *) &x) 
 
@@ -157,10 +157,12 @@
         TRACEME(("double scalar\n"));
         clone = newSVsv (ref);
         break;
+#if PERL_VERSION <= 10
       case SVt_RV:		/* 3 */
         TRACEME(("ref scalar\n"));
         clone = newSVsv (ref);
         break;
+#endif
       case SVt_PV:		/* 4 */
         TRACEME(("string scalar\n"));
         clone = newSVsv (ref);
@@ -183,6 +185,8 @@
         break;
       #if PERL_VERSION <= 8
       case SVt_PVBM:	/* 8 */
+      #elif PERL_VERSION >= 11
+      case SVt_REGEXP:	/* 8 */
       #endif
       case SVt_PVLV:	/* 9 */
       case SVt_PVCV:	/* 12 */

Modified: branches/upstream/libclone-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclone-perl/current/META.yml?rev=23101&op=diff
==============================================================================
--- branches/upstream/libclone-perl/current/META.yml (original)
+++ branches/upstream/libclone-perl/current/META.yml Sun Jul 13 11:33:01 2008
@@ -1,7 +1,7 @@
 # http://module-build.sourceforge.net/META-spec.html
 #XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
 name:         Clone
-version:      0.28
+version:      0.29
 version_from: Clone.pm
 installdirs:  site
 requires: