[Po4a-commits] po4a/lib/Locale/Po4a Man.pm,1.55,1.56

[Nicolas FRAN??OIS]

Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory haydn:/tmp/cvs-serv16808/lib/Locale/Po4a

Modified Files:
	Man.pm 
Log Message:
Handle requests beginning by a single quote.


Index: Man.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Man.pm,v
retrieving revision 1.55
retrieving revision 1.56
diff -u -d -r1.55 -r1.56
--- Man.pm	6 Nov 2004 16:32:57 -0000	1.55
+++ Man.pm	11 Nov 2004 22:22:54 -0000	1.56
@@ -539,10 +539,10 @@
 	    if ($line =~ /\\c/);
 
 
-	if ($line =~ /^\./) {
+	if ($line =~ /^[.']/) {
 	    die sprintf("po4a::man: ".dgettext("po4a","Unparsable line: %s"),$line)."\n"
-		unless ($line =~ /^(\.+\\*?)(\\\")(.*)/ ||
-			$line =~ /^(\.)(\S*)(.*)/);
+		unless ($line =~ /^([.']+\\*?)(\\\")(.*)/ ||
+			$line =~ /^([.'])(\S*)(.*)/);
 	    my $arg1=$1;
 	    $arg1 .= $2;
 	    my $macro=$2;