diff options
Diffstat (limited to 'perl.prov')
| -rwxr-xr-x | perl.prov | 26 |
1 files changed, 20 insertions, 6 deletions
@@ -19,7 +19,7 @@ # a simple script to print the proper name for perl libraries. -# To save development time I do not parse the perl grammmar but +# To save development time I do not parse the perl grammar but # instead just lex it looking for what I want. I take special care to # ignore comments and pod's. @@ -68,7 +68,7 @@ foreach $module (sort keys %require) { print "perl($module)\n"; } else { - # I am not using rpm3.0 so I do not want spaces arround my + # I am not using rpm3.0 so I do not want spaces around my # operators. Also I will need to change the processing of the # $RPM_* variable when I upgrade. @@ -154,11 +154,15 @@ sub process_file { # here are examples of VERSION lines from the perl distribution - #FindBin.pm:$VERSION = $VERSION = sprintf("%d.%02d", q$Revision: 270245 $ =~ /(\d+)\.(\d+)/); - #ExtUtils/Install.pm:$VERSION = substr q$Revision: 270245 $, 10; - #CGI/Apache.pm:$VERSION = (qw$Revision: 270245 $)[1]; + #FindBin.pm:$VERSION = $VERSION = sprintf("%d.%02d", q$Revision: 1.9 $ =~ /(\d+)\.(\d+)/); + #ExtUtils/Install.pm:$VERSION = substr q$Revision: 1.9 $, 10; + #CGI/Apache.pm:$VERSION = (qw$Revision: 1.9 $)[1]; #DynaLoader.pm:$VERSION = $VERSION = "1.03"; # avoid typo warning - #$Locale::Maketext::Simple::VERSION = '0.21'; + #General.pm:$Config::General::VERSION = 2.33; + # + # or with the new "our" pragma you could (read will) see: + # + # our $VERSION = '1.00' if ( $package && @@ -180,6 +184,16 @@ sub process_file { $require{$package} = $version; } + # Allow someone to have a variable that defines virtual packages + # The variable is called $RPM_Provides. It must be scoped with + # "our", but not "local" or "my" (just would not make sense). + # + # For instance: + # + # $RPM_Provides = "blah bleah" + # + # Will generate provides for "blah" and "bleah". + # # Each keyword can appear multiple times. Don't # bother with datastructures to store these strings, # if we need to print it print it now. |