r6248 - in /trunk/libcompress-zlib-perl/debian: changelog patches/02_restore-gzreadline-record-separator-behaviour.patch

dmn at users.alioth.debian.org dmn at users.alioth.debian.org
Sat Aug 4 14:00:15 UTC 2007


Author: dmn
Date: Sat Aug  4 14:00:15 2007
New Revision: 6248

URL: http://svn.debian.org/wsvn/?sc=1&rev=6248
Log:
* Fix the fix for #435656 to not mangle with the *global* $/, but set it to
  "\n" locally, before calling $gz->getline

Modified:
    trunk/libcompress-zlib-perl/debian/changelog
    trunk/libcompress-zlib-perl/debian/patches/02_restore-gzreadline-record-separator-behaviour.patch

Modified: trunk/libcompress-zlib-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libcompress-zlib-perl/debian/changelog?rev=6248&op=diff
==============================================================================
--- trunk/libcompress-zlib-perl/debian/changelog (original)
+++ trunk/libcompress-zlib-perl/debian/changelog Sat Aug  4 14:00:15 2007
@@ -1,8 +1,9 @@
-libcompress-zlib-perl (2.005-3) UNRELEASED; urgency=low
-
-  * NOT RELEASED YET
-
- -- Damyan Ivanov <dmn at debian.org>  Sat, 04 Aug 2007 08:24:00 +0300
+libcompress-zlib-perl (2.005-3) unstable; urgency=low
+
+  * Fix the fix for #435656 to not mangle with the *global* $/, but set it to
+    "\n" locally, before calling $gz->getline
+
+ -- Damyan Ivanov <dmn at debian.org>  Sat, 04 Aug 2007 16:55:54 +0300
 
 libcompress-zlib-perl (2.005-2) unstable; urgency=low
 

Modified: trunk/libcompress-zlib-perl/debian/patches/02_restore-gzreadline-record-separator-behaviour.patch
URL: http://svn.debian.org/wsvn/trunk/libcompress-zlib-perl/debian/patches/02_restore-gzreadline-record-separator-behaviour.patch?rev=6248&op=diff
==============================================================================
--- trunk/libcompress-zlib-perl/debian/patches/02_restore-gzreadline-record-separator-behaviour.patch (original)
+++ trunk/libcompress-zlib-perl/debian/patches/02_restore-gzreadline-record-separator-behaviour.patch Sat Aug  4 14:00:15 2007
@@ -1,14 +1,14 @@
 Index: libcompress-zlib-perl/lib/Compress/Zlib.pm
 ===================================================================
---- libcompress-zlib-perl.orig/lib/Compress/Zlib.pm	2007-08-04 07:45:33.000000000 +0300
-+++ libcompress-zlib-perl/lib/Compress/Zlib.pm	2007-08-04 07:46:12.000000000 +0300
+--- libcompress-zlib-perl.orig/lib/Compress/Zlib.pm	2007-08-04 07:46:27.000000000 +0300
++++ libcompress-zlib-perl/lib/Compress/Zlib.pm	2007-08-04 16:54:52.000000000 +0300
 @@ -180,7 +180,10 @@
      my $self = shift ;
  
      my $gz = $self->[0] ;
 -    $_[0] = $gz->getline() ; 
 +    {
-+        $/ = "\n";
++        local $/ = "\n";
 +        $_[0] = $gz->getline() ;
 +    }
      _save_gzerr($gz, 1);




More information about the Pkg-perl-cvs-commits mailing list