[Po4a-commits] "po4a/lib/Locale/Po4a Po.pm,1.92,1.93"

[Nicolas FRANCOIS]

Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory alioth:/tmp/cvs-serv17963/lib/Locale/Po4a

Modified Files:
	Po.pm 
Log Message:
	* lib/Locale/Po4a/Po.pm: If no "charset" header is present, return
	CHARSET. Thanks to intrigeri for spotting this with zzuf.


Index: Po.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Po.pm,v
retrieving revision 1.92
retrieving revision 1.93
diff -u -d -r1.92 -r1.93
--- Po.pm	14 Jul 2008 19:42:01 -0000	1.92
+++ Po.pm	12 Nov 2008 17:13:27 -0000	1.93
@@ -1351,8 +1351,14 @@
 
 sub get_charset() {
     my $self=shift;
+
     $self->{header} =~ /charset=(.*?)[\s\\]/;
-    return $1;
+
+    if (defined $1) {
+        return $1;
+    } else {
+        return "CHARSET";
+    }
 }
 
 =item set_charset($)