diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-22 19:48:20 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-22 19:48:20 +0000 |
| commit | 011b2d2f95a2b6260e1a3409e652417bcc2b453d (patch) | |
| tree | 0bac0a0db68191194634105b67959b971769e661 /ext/Encode/Unicode | |
| parent | 884bad00cca84e3362ce7b5e71a81555b48ce98b (diff) | |
| download | perl-011b2d2f95a2b6260e1a3409e652417bcc2b453d.tar.gz | |
Upgrade to Encode 1.57, from Dan Kogai.
p4raw-id: //depot/perl@16085
Diffstat (limited to 'ext/Encode/Unicode')
| -rw-r--r-- | ext/Encode/Unicode/Unicode.pm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/ext/Encode/Unicode/Unicode.pm b/ext/Encode/Unicode/Unicode.pm index fdf826ef16..bfe03bd646 100644 --- a/ext/Encode/Unicode/Unicode.pm +++ b/ext/Encode/Unicode/Unicode.pm @@ -3,7 +3,7 @@ package Encode::Unicode; use strict; use warnings; -our $VERSION = do { my @r = (q$Revision: 1.34 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +our $VERSION = do { my @r = (q$Revision: 1.35 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; use XSLoader; XSLoader::load(__PACKAGE__,$VERSION); @@ -50,8 +50,12 @@ sub new_sequence sub needs_lines { 0 }; sub perlio_ok { - exists $INC{"PerlIO/encoding.pm"} or return 0; - return 1; + eval{ require PerlIO::encoding }; + if ($@){ + return 0; + }else{ + return 1; + } } |