diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-27 19:02:23 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-27 19:02:23 +0000 |
| commit | 10c5ecbb45a6581439752935880506669f2d618c (patch) | |
| tree | 4de51ee77d96971ee353cebd7691465ac516fb28 /ext/Encode/encoding.pm | |
| parent | ce148d7872ffe07a7be2d55065fc77a8859ff776 (diff) | |
| download | perl-10c5ecbb45a6581439752935880506669f2d618c.tar.gz | |
Upgrade to Encode 1.63.
p4raw-id: //depot/perl@16226
Diffstat (limited to 'ext/Encode/encoding.pm')
| -rw-r--r-- | ext/Encode/encoding.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ext/Encode/encoding.pm b/ext/Encode/encoding.pm index 420defe09f..efa5f3113b 100644 --- a/ext/Encode/encoding.pm +++ b/ext/Encode/encoding.pm @@ -1,5 +1,5 @@ package encoding; -our $VERSION = do { my @r = (q$Revision: 1.33 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +our $VERSION = do { my @r = (q$Revision: 1.34 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; use Encode; use strict; @@ -7,7 +7,7 @@ use strict; BEGIN { if (ord("A") == 193) { require Carp; - Carp::croak "encoding pragma does not support EBCDIC platforms"; + Carp::croak("encoding pragma does not support EBCDIC platforms"); } } @@ -26,7 +26,7 @@ sub import { my $enc = find_encoding($name); unless (defined $enc) { require Carp; - Carp::croak "Unknown encoding '$name'"; + Carp::croak("Unknown encoding '$name'"); } unless ($arg{Filter}){ ${^ENCODING} = $enc; # this is all you need, actually. @@ -35,7 +35,7 @@ sub import { if ($arg{$h}){ unless (defined find_encoding($arg{$h})) { require Carp; - Carp::croak "Unknown encoding for $h, '$arg{$h}'"; + Carp::croak("Unknown encoding for $h, '$arg{$h}'"); } eval { binmode($h, ":encoding($arg{$h})") }; }else{ |