diff options
| author | Paul Marquess <paul.marquess@btinternet.com> | 2007-07-01 01:50:01 +0100 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2007-07-02 16:52:30 +0000 |
| commit | 93d092e27236bf0069d60659d00503bf5d187b7b (patch) | |
| tree | ed63fb0858d068a7037784690c4857144ac650e1 /ext/IO_Compress_Base/lib/IO/Compress/Base.pm | |
| parent | 277189c8ad3fc0d1dcd4c757f62b0a7bf5bacaa0 (diff) | |
| download | perl-93d092e27236bf0069d60659d00503bf5d187b7b.tar.gz | |
compression modules update to version 2.005
From: "Paul Marquess" <Paul.Marquess@ntlworld.com>
Message-ID: <000c01c7bb71$6189ae20$6601a8c0@myopwv.com>
p4raw-id: //depot/perl@31520
Diffstat (limited to 'ext/IO_Compress_Base/lib/IO/Compress/Base.pm')
| -rw-r--r-- | ext/IO_Compress_Base/lib/IO/Compress/Base.pm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/ext/IO_Compress_Base/lib/IO/Compress/Base.pm b/ext/IO_Compress_Base/lib/IO/Compress/Base.pm index 8617b5630f..901d35119b 100644 --- a/ext/IO_Compress_Base/lib/IO/Compress/Base.pm +++ b/ext/IO_Compress_Base/lib/IO/Compress/Base.pm @@ -6,7 +6,7 @@ require 5.004 ; use strict ; use warnings; -use IO::Compress::Base::Common 2.004 ; +use IO::Compress::Base::Common 2.005 ; use IO::File ; use Scalar::Util qw(blessed readonly); @@ -18,9 +18,9 @@ use Symbol; use bytes; our (@ISA, $VERSION); -#@ISA = qw(Exporter IO::File); +@ISA = qw(Exporter IO::File); -$VERSION = '2.004'; +$VERSION = '2.005'; #Can't locate object method "SWASHNEW" via package "utf8" (perhaps you forgot to load "utf8"?) at .../ext/Compress-Zlib/Gzip/blib/lib/Compress/Zlib/Common.pm line 16. @@ -574,6 +574,9 @@ sub syswrite $buffer = \$_[0] ; } + $] >= 5.008 and ( utf8::downgrade($$buffer, 1) + or croak "Wide character in " . *$self->{ClassName} . "::write:"); + if (@_ > 1) { my $slen = defined $$buffer ? length($$buffer) : 0; @@ -985,3 +988,4 @@ This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. + |