Allow $answer = encode($object,$text); like it says in docs.

p4raw-id: //depot/perlio@9976

diff --git a/ext/Encode/Encode.pm b/ext/Encode/Encode.pm
index dda842d..49e2d1e 100644 (file)
--- 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};