r76394 - in /branches/upstream/libdata-alias-perl/current: Alias.xs Changes MANIFEST META.yml lib/Data/Alias.pm t/devel_callparser.t

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

Author: fabreg-guest
Date: Thu Jun 23 20:43:26 2011
New Revision: 76394

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=76394
Log:
[svn-upgrade] new version libdata-alias-perl (1.15)

Added:
    branches/upstream/libdata-alias-perl/current/t/devel_callparser.t
Modified:
    branches/upstream/libdata-alias-perl/current/Alias.xs
    branches/upstream/libdata-alias-perl/current/Changes
    branches/upstream/libdata-alias-perl/current/MANIFEST
    branches/upstream/libdata-alias-perl/current/META.yml
    branches/upstream/libdata-alias-perl/current/lib/Data/Alias.pm

Modified: branches/upstream/libdata-alias-perl/current/Alias.xs
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-alias-perl/current/Alias.xs?rev=76394&op=diff
==============================================================================
--- branches/upstream/libdata-alias-perl/current/Alias.xs (original)
+++ branches/upstream/libdata-alias-perl/current/Alias.xs Thu Jun 23 20:43:26 2011
@@ -533,7 +533,12 @@
 
 STATIC OP *DataAlias_pp_aelemfast(pTHX) {
 	dSP;
-	AV *av = (PL_op->op_flags & OPf_SPECIAL) ?
+	AV *av =
+#if (PERL_COMBI_VERSION >= 5015000)
+		PL_op->op_type == OP_AELEMFAST_LEX ?
+#else
+		(PL_op->op_flags & OPf_SPECIAL) ?
+#endif
 			(AV *) PAD_SV(PL_op->op_targ) : GvAVn(cGVOP_gv);
 	IV index = PL_op->op_private;
 	if (!av_fetch(av, index, TRUE))
@@ -1401,6 +1406,9 @@
 						   DA_OUTER_ERR);
 			   break;
 	case OP_AELEM:     op->op_ppaddr = DataAlias_pp_aelem;     break;
+#if (PERL_COMBI_VERSION >= 5015000)
+	case OP_AELEMFAST_LEX:
+#endif
 	case OP_AELEMFAST: op->op_ppaddr = DataAlias_pp_aelemfast; break;
 	case OP_HELEM:     op->op_ppaddr = DataAlias_pp_helem;     break;
 	case OP_ASLICE:    op->op_ppaddr = DataAlias_pp_aslice;    break;

Modified: branches/upstream/libdata-alias-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-alias-perl/current/Changes?rev=76394&op=diff
==============================================================================
--- branches/upstream/libdata-alias-perl/current/Changes (original)
+++ branches/upstream/libdata-alias-perl/current/Changes Thu Jun 23 20:43:26 2011
@@ -1,3 +1,10 @@
+version 1.15; 2011-06-21
+
+  * port to Perl 5.15.0, where the op type aelemfast has been split into
+    aelemfast and aelemfast_lex
+
+  * test compatibility with Devel::CallParser
+
 version 1.14; 2011-04-27
 
   * bugfix: never unhook peephole optimiser, because unhooking is liable

Modified: branches/upstream/libdata-alias-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-alias-perl/current/MANIFEST?rev=76394&op=diff
==============================================================================
--- branches/upstream/libdata-alias-perl/current/MANIFEST (original)
+++ branches/upstream/libdata-alias-perl/current/MANIFEST Thu Jun 23 20:43:26 2011
@@ -41,6 +41,7 @@
 t/26_alias_local.t
 t/28_alias_const.t
 t/29_alias_dorassign.t
+t/devel_callparser.t
 t/lib/assign.pm
 t/lib/Test/Builder.pm
 t/lib/Test/More.pm

Modified: branches/upstream/libdata-alias-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-alias-perl/current/META.yml?rev=76394&op=diff
==============================================================================
--- branches/upstream/libdata-alias-perl/current/META.yml (original)
+++ branches/upstream/libdata-alias-perl/current/META.yml Thu Jun 23 20:43:26 2011
@@ -16,4 +16,4 @@
     - t
 requires: 
   perl: 5.8.1
-version: 1.14
+version: 1.15

Modified: branches/upstream/libdata-alias-perl/current/lib/Data/Alias.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-alias-perl/current/lib/Data/Alias.pm?rev=76394&op=diff
==============================================================================
--- branches/upstream/libdata-alias-perl/current/lib/Data/Alias.pm (original)
+++ branches/upstream/libdata-alias-perl/current/lib/Data/Alias.pm Thu Jun 23 20:43:26 2011
@@ -5,7 +5,7 @@
 use strict;
 use warnings;
 
-our $VERSION = '1.14';
+our $VERSION = '1.15';
 
 use base 'Exporter';
 use base 'DynaLoader';

Added: branches/upstream/libdata-alias-perl/current/t/devel_callparser.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-alias-perl/current/t/devel_callparser.t?rev=76394&op=file
==============================================================================
--- branches/upstream/libdata-alias-perl/current/t/devel_callparser.t (added)
+++ branches/upstream/libdata-alias-perl/current/t/devel_callparser.t Thu Jun 23 20:43:26 2011
@@ -1,0 +1,22 @@
+use warnings;
+no warnings "void";
+use strict;
+
+BEGIN {
+	eval { require Devel::CallParser };
+	if($@ ne "") {
+		require Test::More;
+		Test::More::plan(skip_all => "Devel::CallParser unavailable");
+	}
+}
+
+use Test::More tests => 2;
+
+use Devel::CallParser ();
+
+use Data::Alias;
+
+is alias(42), 42;
+is alias{42}, 42;
+
+1;