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
fabreg-guest at users.alioth.debian.org
Thu Jun 23 20:43:29 UTC 2011
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;
More information about the Pkg-perl-cvs-commits
mailing list