diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-05-03 16:40:42 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-05-03 16:40:42 +0000 |
| commit | 0f43fc9088ef519f8bd95cf48e852a436508c605 (patch) | |
| tree | 2a6337030729cddb9138d892096f42ac9fc91de9 /ext | |
| parent | 6d6a7c8da03005f2939b162fdb831faae6901085 (diff) | |
| download | perl-0f43fc9088ef519f8bd95cf48e852a436508c605.tar.gz | |
Allow $answer = encode($object,$text); like it says in docs.
p4raw-id: //depot/perlio@9976
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Encode/Encode.pm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/ext/Encode/Encode.pm b/ext/Encode/Encode.pm index dda842d4a3..49e2d1eef5 100644 --- a/ext/Encode/Encode.pm +++ b/ext/Encode/Encode.pm @@ -136,6 +136,10 @@ sub getEncoding { my ($class,$name) = @_; my $enc; + if (ref($name) && $name->can('new_sequence')) + { + return $name; + } if (exists $encoding{$name}) { return $encoding{$name}; |