| 1 |
From 571d8c96cf5d0683212052ceac7c8e53f40b3f3c Mon Sep 17 00:00:00 2001 |
| 2 |
From: paul <paul@paul-desktop.(none)> |
| 3 |
Date: Thu, 15 Apr 2010 19:35:44 +0100 |
| 4 |
Subject: [PATCH] perl-74088 |
| 5 |
|
| 6 |
--- |
| 7 |
cpan/IO-Compress/Changes | 6 ++++++ |
| 8 |
cpan/IO-Compress/lib/Compress/Zlib.pm | 15 ++------------- |
| 9 |
2 files changed, 8 insertions(+), 13 deletions(-) |
| 10 |
|
| 11 |
diff --git a/cpan/IO-Compress/Changes b/cpan/IO-Compress/Changes |
| 12 |
index c98bef1..e3a7a70 100644 |
| 13 |
--- a/cpan/IO-Compress/Changes |
| 14 |
+++ b/cpan/IO-Compress/Changes |
| 15 |
@@ -1,6 +1,12 @@ |
| 16 |
CHANGES |
| 17 |
------- |
| 18 |
|
| 19 |
+ 2.024_01 15 April 2010 |
| 20 |
+ |
| 21 |
+ * Compress::Zlib |
| 22 |
+ Remove autoload code from Zlib.pm. |
| 23 |
+ [perl #74088] |
| 24 |
+ |
| 25 |
2.024 7 January 2010 |
| 26 |
|
| 27 |
* Compress::Zlib |
| 28 |
diff --git a/cpan/IO-Compress/lib/Compress/Zlib.pm b/cpan/IO-Compress/lib/Compress/Zlib.pm |
| 29 |
index 9424df6..b546dac 100644 |
| 30 |
--- a/cpan/IO-Compress/lib/Compress/Zlib.pm |
| 31 |
+++ b/cpan/IO-Compress/lib/Compress/Zlib.pm |
| 32 |
@@ -3,7 +3,6 @@ package Compress::Zlib; |
| 33 |
|
| 34 |
require 5.004 ; |
| 35 |
require Exporter; |
| 36 |
-use AutoLoader; |
| 37 |
use Carp ; |
| 38 |
use IO::Handle ; |
| 39 |
use Scalar::Util qw(dualvar); |
| 40 |
@@ -16,9 +15,9 @@ use IO::Uncompress::Gunzip 2.024 ; |
| 41 |
use strict ; |
| 42 |
use warnings ; |
| 43 |
use bytes ; |
| 44 |
-our ($VERSION, $XS_VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, $AUTOLOAD); |
| 45 |
+our ($VERSION, $XS_VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS); |
| 46 |
|
| 47 |
-$VERSION = '2.024'; |
| 48 |
+$VERSION = '2.024_01'; |
| 49 |
$XS_VERSION = $VERSION; |
| 50 |
$VERSION = eval $VERSION; |
| 51 |
|
| 52 |
@@ -46,16 +45,6 @@ BEGIN |
| 53 |
*zlib_version = \&Compress::Raw::Zlib::zlib_version; |
| 54 |
} |
| 55 |
|
| 56 |
-sub AUTOLOAD { |
| 57 |
- my($constname); |
| 58 |
- ($constname = $AUTOLOAD) =~ s/.*:://; |
| 59 |
- my ($error, $val) = Compress::Raw::Zlib::constant($constname); |
| 60 |
- Carp::croak $error if $error; |
| 61 |
- no strict 'refs'; |
| 62 |
- *{$AUTOLOAD} = sub { $val }; |
| 63 |
- goto &{$AUTOLOAD}; |
| 64 |
-} |
| 65 |
- |
| 66 |
use constant FLAG_APPEND => 1 ; |
| 67 |
use constant FLAG_CRC => 2 ; |
| 68 |
use constant FLAG_ADLER => 4 ; |
| 69 |
-- |
| 70 |
1.6.0.4 |
| 71 |
|
Parent Directory
| 
Revision Log