diff options
Diffstat (limited to 'ext/Encode/Unicode/Unicode.pm')
| -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; + } } |