- perl: skip new-fangled head[34] while gerenerating deps (#118243).

CVS patchset: 7224
CVS date: 2004/04/08 00:03:51

diff --git a/CHANGES b/CHANGES
index 6e49f2a..176717d 100644 (file)
--- a/CHANGES
+++ b/CHANGES
@@ -12,6 +12,7 @@
        - fix: segfault on --recontext if file_contexts unreadable (#117374).
        - fix: /etc/security/selinux/file_contexts is default path.
        - fix: no transaction lock if --test was specified (#119783).
+       - perl: skip new-fangled head[34] while gerenerating deps.
 
 4.2.2 -> 4.3:
        - upgrade to zlib-1.2.beta7.

diff --git a/scripts/perl.prov b/scripts/perl.prov
index 1bdfa09..c1e0685 100755 (executable)
--- a/scripts/perl.prov
+++ b/scripts/perl.prov
@@ -94,7 +94,7 @@ sub process_file {
     # properly belongs in the over/back section) but people do not
     # read the perldoc.
 
-    if (m/^=(head1|head2|pod|item)/) {
+    if (m/^=(head[1-4]|pod|item)/) {
       $incomment = 1;
     }
 
@@ -136,9 +136,9 @@ sub process_file {
 
     # here are examples of VERSION lines from the perl distribution
 
-    #FindBin.pm:$VERSION = $VERSION = sprintf("%d.%02d", q$Revision: 1.7 $ =~ /(\d+)\.(\d+)/);
-    #ExtUtils/Install.pm:$VERSION = substr q$Revision: 1.7 $, 10;
-    #CGI/Apache.pm:$VERSION = (qw$Revision: 1.7 $)[1];
+    #FindBin.pm:$VERSION = $VERSION = sprintf("%d.%02d", q$Revision: 1.8 $ =~ /(\d+)\.(\d+)/);
+    #ExtUtils/Install.pm:$VERSION = substr q$Revision: 1.8 $, 10;
+    #CGI/Apache.pm:$VERSION = (qw$Revision: 1.8 $)[1];
     #DynaLoader.pm:$VERSION = $VERSION = "1.03";     # avoid typo warning
 
     if ( 

diff --git a/scripts/perl.req b/scripts/perl.req
index 6213bc4..09614fd 100755 (executable)
--- a/scripts/perl.req
+++ b/scripts/perl.req
@@ -96,7 +96,7 @@ sub process_file {
     # properly belongs in the over/back section) but people do not
     # read the perldoc.
 
-    if ( (m/^=(head1|head2|pod|item)/) .. (m/^=(cut)/) ) {
+    if ( (m/^=(head[1-4]|pod|item)/) .. (m/^=(cut)/) ) {
       next;
     }
 

diff --git a/scripts/perldeps.pl b/scripts/perldeps.pl
index b488bda..7a4baad 100644 (file)
--- a/scripts/perldeps.pl
+++ b/scripts/perldeps.pl
@@ -171,7 +171,7 @@ sub process_file {
   }
 
   while (<FH>) {
-    next if m(^=(head1|head2|pod|item)) .. m(^=cut);
+    next if m(^=(head[1-4]|pod|item)) .. m(^=cut);
     next if m(^=over) .. m(^=back);
     last if m/^__(DATA|END)__$/;