[perl #22707] [PATCH] ./tools/dev/extract_file_descriptions.pl bug fix

[via RT]

# New Ticket Created by  [EMAIL PROTECTED] 
# Please include the string:  [perl #22707]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=22707 >


In ./tools/dev/extract_file_descriptions.pl, regexps searching for
"Id:" get mangled by CVS checkout.

This patch modifies them to "I[d]:".

This patch is against the mangled file one would see at checkout,
rather than the unmangled CVS-internal file.

Mitchell


-- attachment  1 ------------------------------------------------------
url: http://rt.perl.org/rt2/attach/59424/44019/aeaf02/extract_fix.patch


--- ./tools/dev/extract_file_descriptions.pl.mangled    Fri Dec 27 19:50:48 2002
+++ ./tools/dev/extract_file_descriptions.pl    Sun Jun 15 14:58:07 2003
@@ -101,7 +101,7 @@
        s/^\#\!.+//m;            # #!
        s/^\# *[a-z0-9]+\.(p[ml]|pasm)\s*\n//mi; # own file name - kludgy
        s/\#\s*Copyright[^\n]+\n(\# *\S[^\n]*\n)*/\#\n/s;
-       s/^\#\s*(\$Id: extract_file_descriptions.pl,v 1.1 2002/12/28 00:50:48 dan Exp 
$info->{Id} = $1;
+       s/^\#\s*(\$I[d]: .+)\n//m; $info->{Id} = $1;
        s/^\#\s*Author:.+//m;
        
        s/^\s*\n//mg; # truly blank lines, between the # comment lines
@@ -148,7 +148,7 @@
     s/^ ?\*\*//mg;   # |**
     s/^ {0,2}\*//mg; # | *
 
-    s/^ *(\$Id: extract_file_descriptions.pl,v 1.1 2002/12/28 00:50:48 dan Exp 
$info->{Id} = $1;
+    s/^ *(\$I[d]: .+)\n//m; $info->{Id} = $1;
 
     my $desc;
     if(/Overview:/) { # normal parrot code files