r66533 - in /branches/upstream/libdata-alias-perl/current: Alias.xs Changes META.yml README lib/Data/Alias.pm t/04_alias_parse.t

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

Author: jawnsy-guest
Date: Tue Dec 28 00:16:04 2010
New Revision: 66533

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

Modified:
    branches/upstream/libdata-alias-perl/current/Alias.xs
    branches/upstream/libdata-alias-perl/current/Changes
    branches/upstream/libdata-alias-perl/current/META.yml
    branches/upstream/libdata-alias-perl/current/README
    branches/upstream/libdata-alias-perl/current/lib/Data/Alias.pm
    branches/upstream/libdata-alias-perl/current/t/04_alias_parse.t

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=66533&op=diff
==============================================================================
--- branches/upstream/libdata-alias-perl/current/Alias.xs (original)
+++ branches/upstream/libdata-alias-perl/current/Alias.xs Tue Dec 28 00:16:04 2010
@@ -20,15 +20,16 @@
 #endif
 
 
-#if defined(PERL_CORE) && defined(MULTIPLICITY)
-#undef PL_sv_placeholder
-#define PL_sv_placeholder (*Perl_Gsv_placeholder_ptr(NULL))
-#endif
-
-
 #ifndef PERL_COMBI_VERSION
 #define PERL_COMBI_VERSION (PERL_REVISION * 1000000 + PERL_VERSION * 1000 + \
 				PERL_SUBVERSION)
+#endif
+
+
+#if defined(PERL_CORE) && defined(MULTIPLICITY) && \
+		(PERL_COMBI_VERSION < 5013006)
+#undef PL_sv_placeholder
+#define PL_sv_placeholder (*Perl_Gsv_placeholder_ptr(NULL))
 #endif
 
 
@@ -106,6 +107,14 @@
 #define Nullop ((OP*)NULL)
 #endif
 
+#ifndef lex_end
+#define lex_end() ((void) 0)
+#endif
+
+#ifndef op_lvalue
+#define op_lvalue(o, t) mod(o, t)
+#endif
+
 #if (PERL_COMBI_VERSION >= 5011000) && !defined(SVt_RV)
 #define SVt_RV SVt_IV
 #endif
@@ -153,7 +162,7 @@
 
 #define OPpUSEFUL 128
 
-#define MOD(op) mod((op), OP_GREPSTART)
+#define MOD(op) op_lvalue((op), OP_GREPSTART)
 
 #ifndef SVs_PADBUSY
 #define SVs_PADBUSY 0

Modified: branches/upstream/libdata-alias-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-alias-perl/current/Changes?rev=66533&op=diff
==============================================================================
--- branches/upstream/libdata-alias-perl/current/Changes (original)
+++ branches/upstream/libdata-alias-perl/current/Changes Tue Dec 28 00:16:04 2010
@@ -1,4 +1,17 @@
 Revision history for Perl extension Data::Alias
+
+1.10  Sun Nov 21 09:04 GMT 2010
+	- Updated to work with Perl version 5.13.7, where lex_end()
+	  has disappeared and mod() is now in the public API under the
+	  name op_lvalue()
+
+1.09  Mon Nov 15 21:36 GMT 2010
+	- Modify source filter test to use Filter::Util::Call directly
+	  instead of the deprecated Switch, and to not fail if it is not
+	  available, thus allowing tests to pass on Perl versions 5.13.1
+	  and above where Switch is no longer in the core distribution
+	- Updated to work with Perl version 5.13.6, where global variables
+	  are managed in a different way from before
 
 1.08  Fri Oct 22 09:39 BST 2010
 	- Updated to work with Perl versions 5.11.0 up to 5.13.0,

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=66533&op=diff
==============================================================================
--- branches/upstream/libdata-alias-perl/current/META.yml (original)
+++ branches/upstream/libdata-alias-perl/current/META.yml Tue Dec 28 00:16:04 2010
@@ -16,4 +16,4 @@
     - t
 requires: 
   perl: 5.8.1
-version: 1.08
+version: 1.10

Modified: branches/upstream/libdata-alias-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-alias-perl/current/README?rev=66533&op=diff
==============================================================================
--- branches/upstream/libdata-alias-perl/current/README (original)
+++ branches/upstream/libdata-alias-perl/current/README Tue Dec 28 00:16:04 2010
@@ -1,4 +1,4 @@
-Data::Alias 1.08 - Comprehensive set of aliasing operations
+Data::Alias 1.10 - Comprehensive set of aliasing operations
 
 
 System requirements:

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=66533&op=diff
==============================================================================
--- branches/upstream/libdata-alias-perl/current/lib/Data/Alias.pm (original)
+++ branches/upstream/libdata-alias-perl/current/lib/Data/Alias.pm Tue Dec 28 00:16:04 2010
@@ -5,7 +5,7 @@
 use strict;
 use warnings;
 
-our $VERSION = '1.08';
+our $VERSION = '1.10';
 
 use base 'Exporter';
 use base 'DynaLoader';

Modified: branches/upstream/libdata-alias-perl/current/t/04_alias_parse.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-alias-perl/current/t/04_alias_parse.t?rev=66533&op=diff
==============================================================================
--- branches/upstream/libdata-alias-perl/current/t/04_alias_parse.t (original)
+++ branches/upstream/libdata-alias-perl/current/t/04_alias_parse.t Tue Dec 28 00:16:04 2010
@@ -46,7 +46,15 @@
 $x = alias { !alias 1, 2 }, 3;
 is $x, !2;
 
-use Switch;  # install a source filter, just for fun
+BEGIN {
+	# install a source filter, just for fun
+	if(eval { require Filter::Util::Call; 1 }) {
+		Filter::Util::Call::filter_add(sub {
+			my $s = Filter::Util::Call::filter_read();
+			return $s;
+		});
+	}
+}
 
 is alias
 (42), 42;