Fix: Accept leading/trailing whitespace for Last-modified pseudo header.

[usenet/yapfaq.git] / yapfaq.pl

diff --git a/yapfaq.pl b/yapfaq.pl
index 2b5fe2f..6e3032c 100644 (file)
--- a/yapfaq.pl
+++ b/yapfaq.pl
@@ -263,7 +263,7 @@ sub postfaq {
     s/\r//;
     push (@Body, $_), next if $InRealBody;
     $InRealBody++ if /^$/;
     s/\r//;
     push (@Body, $_), next if $InRealBody;
     $InRealBody++ if /^$/;

-    $LastModified = $1 if /^Last-modified: (\S+)$/i;
+    $LastModified = $1 if /^Last-modified:\s*(\S+)\s*$/i;

     push @Body, $_;
   }
   close FH;
     push @Body, $_;
   }
   close FH;