Changeset 30790

Timestamp:

03/04/09 11:20:26 (13 months ago)

Author:

tokuhirom

Message:

encode(undef, 'str') should die more earlier

Files:

• lang/perl/Encode/trunk/Encode.pm (modified) (1 diff)

lang/perl/Encode/trunk/Encode.pm

@@ -147 +147 @@
     $string .= '' if ref $string;    # stringify;
     $check ||= 0;
+    unless ( defined $name ) {
+        require Carp;
+        Carp::croak("Encoding name should not be undef");
+    }
     my $enc = find_encoding($name);
     unless ( defined $enc ) {