diff options
| author | jbj <devnull@localhost> | 2004-04-08 00:03:51 +0000 |
|---|---|---|
| committer | jbj <devnull@localhost> | 2004-04-08 00:03:51 +0000 |
| commit | ec32c2ab0da852fe0bf30aaf39429f964de9dc30 (patch) | |
| tree | 91564dc089bc30d3d0d36c2d110c394bc82e3af9 /scripts/perl.prov | |
| parent | 12d5c367af207a802583264dc70d986c19b02b09 (diff) | |
| download | librpm-tizen-ec32c2ab0da852fe0bf30aaf39429f964de9dc30.tar.gz librpm-tizen-ec32c2ab0da852fe0bf30aaf39429f964de9dc30.tar.bz2 librpm-tizen-ec32c2ab0da852fe0bf30aaf39429f964de9dc30.zip | |
- perl: skip new-fangled head[34] while gerenerating deps (#118243).
CVS patchset: 7224
CVS date: 2004/04/08 00:03:51
Diffstat (limited to 'scripts/perl.prov')
| -rwxr-xr-x | scripts/perl.prov | 8 |
1 files changed, 4 insertions, 4 deletions
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 ( |