From ec32c2ab0da852fe0bf30aaf39429f964de9dc30 Mon Sep 17 00:00:00 2001 From: jbj Date: Thu, 8 Apr 2004 00:03:51 +0000 Subject: - perl: skip new-fangled head[34] while gerenerating deps (#118243). CVS patchset: 7224 CVS date: 2004/04/08 00:03:51 --- scripts/perl.prov | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'scripts/perl.prov') diff --git a/scripts/perl.prov b/scripts/perl.prov index 1bdfa095e..c1e06853c 100755 --- 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 ( -- cgit v1.2.3