GetProgramLocations.pm (Mail-Mbox-MessageParser-1.5110) | : | GetProgramLocations.pm (Mail-Mbox-MessageParser-1.5111) | ||
---|---|---|---|---|
skipping to change at line 23 | skipping to change at line 23 | |||
use vars qw( @ISA $VERSION @EXPORT ); | use vars qw( @ISA $VERSION @EXPORT ); | |||
use Module::Install::Base; | use Module::Install::Base; | |||
@ISA = qw( Module::Install::Base Exporter ); | @ISA = qw( Module::Install::Base Exporter ); | |||
@EXPORT = qw( &get_gnu_version | @EXPORT = qw( &get_gnu_version | |||
&get_bzip2_version | &get_bzip2_version | |||
); | ); | |||
$VERSION = sprintf "%d.%02d%02d", q/0.30.10/ =~ /(\d+)/g; | $VERSION = sprintf "%d.%02d%02d", q/0.30.12/ =~ /(\d+)/g; | |||
# --------------------------------------------------------------------------- | # --------------------------------------------------------------------------- | |||
sub get_program_locations | sub get_program_locations | |||
{ | { | |||
my $self = shift; | my $self = shift; | |||
my %info = %{ shift @_ }; | my %info = %{ shift @_ }; | |||
foreach my $program (keys %info) | foreach my $program (keys %info) | |||
{ | { | |||
End of changes. 1 change blocks. | ||||
1 lines changed or deleted | 1 lines changed or added |