develooper Front page | perl.perl5.porters | Postings from May 2003

[PATCH] ext/Encode/lib/Encode/MIME/Header.pm

Thread Next
From:
Simon Cozens
Date:
May 9, 2003 03:37
Subject:
[PATCH] ext/Encode/lib/Encode/MIME/Header.pm
Message ID:
20030509103708.GA30664@deep-dark-truthful-mirror.pad
--- ext/Encode/lib/Encode/MIME/Header.pm~       2003-05-09 11:35:00.000000000 +0100
+++ ext/Encode/lib/Encode/MIME/Header.pm        2003-05-09 11:36:15.000000000 +0100
@@ -72,7 +72,7 @@

 sub decode_b{
     my $enc = shift;
-    my $d = find_encoding($enc)        or croak(Unknown encoding "$enc");
+    my $d = find_encoding($enc)        or croak qq(Unknown encoding "$enc");
     my $db64 = decode_base64(shift);
     return $d->name eq 'utf8' ?
        Encode::decode_utf8($db64) : $d->decode($db64, Encode::FB_PERLQQ);
@@ -80,7 +80,7 @@

 sub decode_q{
     my ($enc, $q) = @_;
-    my $d = find_encoding($enc) or croak(Unknown encoding "$enc");
+    my $d = find_encoding($enc) or croak qq(Unknown encoding "$enc");
     $q =~ s/_/ /go;
     $q =~ s/=([0-9A-Fa-f]{2})/pack("C", hex($1))/ego;
     return $d->name eq 'utf8' ?

-- 
"If there were an invisible cat in that chair, it would look empty. But it does
look empty; therefore there is an invisible cat in it". Belief in invisible
cats cannot perhaps be logically disproved, but it tells us a good deal about
those who hold it.
    - C S Lewis, "The Four Loves"

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About