r17397 - in /trunk/libxml-sax-machines-perl/debian: changelog patches/pseudo-hash.patch patches/series

[ntyni at users.alioth.debian.org]

Author: ntyni
Date: Thu Mar 13 15:01:19 2008
New Revision: 17397

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=17397
Log:
* debian/patches/pseudo-hash.patch: use an ordinary hash reference instead
  of a pseudo hash to stay compatible with Perl 5.10. (Closes: #467316)

Added:
    trunk/libxml-sax-machines-perl/debian/patches/pseudo-hash.patch
Modified:
    trunk/libxml-sax-machines-perl/debian/changelog
    trunk/libxml-sax-machines-perl/debian/patches/series

Modified: trunk/libxml-sax-machines-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-sax-machines-perl/debian/changelog?rev=17397&op=diff
==============================================================================
--- trunk/libxml-sax-machines-perl/debian/changelog (original)
+++ trunk/libxml-sax-machines-perl/debian/changelog Thu Mar 13 15:01:19 2008
@@ -1,5 +1,6 @@
 libxml-sax-machines-perl (0.41-3) UNRELEASED; urgency=low
 
+  [ gregor herrmann ]
   * debian/control: Added: Vcs-Svn field (source stanza); Vcs-Browser
     field (source stanza); Homepage field (source stanza).
   * debian/control:
@@ -23,6 +24,10 @@
     - add upstream source location
     - add copyright for the Debian packaging
     - convert to new format
+
+  [ Niko Tyni ]
+  * debian/patches/pseudo-hash.patch: use an ordinary hash reference instead
+    of a pseudo hash to stay compatible with Perl 5.10. (Closes: #467316)
 
  -- gregor herrmann <gregor+debian at comodo.priv.at>  Mon, 25 Feb 2008 20:22:01 +0100
 

Added: trunk/libxml-sax-machines-perl/debian/patches/pseudo-hash.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-sax-machines-perl/debian/patches/pseudo-hash.patch?rev=17397&op=file
==============================================================================
--- trunk/libxml-sax-machines-perl/debian/patches/pseudo-hash.patch (added)
+++ trunk/libxml-sax-machines-perl/debian/patches/pseudo-hash.patch Thu Mar 13 15:01:19 2008
@@ -1,0 +1,20 @@
+diff --git a/lib/XML/SAX/Machine.pm b/lib/XML/SAX/Machine.pm
+index e50ea75..1917676 100644
+--- a/lib/XML/SAX/Machine.pm
++++ b/lib/XML/SAX/Machine.pm
+@@ -1468,13 +1468,8 @@ sub new {
+     my $proto = shift;
+     my $class = ref $proto || $proto;
+ 
+-    my $self = do {
+-        no strict 'refs';
+-        bless [ \%{ "${class}::FIELDS" } ];
+-    };
+-
+-    ## Pseudo hashes are badly borken in older Perls.  Should use something
+-    ## else, really.
++    my $self = bless {}, $class;
++    
+     my %options = @_ ;
+     $self->{$_} = $options{$_} for keys %options;
+ 

Modified: trunk/libxml-sax-machines-perl/debian/patches/series
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-sax-machines-perl/debian/patches/series?rev=17397&op=diff
==============================================================================
--- trunk/libxml-sax-machines-perl/debian/patches/series (original)
+++ trunk/libxml-sax-machines-perl/debian/patches/series Thu Mar 13 15:01:19 2008
@@ -1,1 +1,2 @@
+pseudo-hash.patch
 vendorlibs.patch