"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "private-lib/Module/Install/PRIVATE/Fix_Sort_Versions.pm" between
Mail-Mbox-MessageParser-1.5110.tar.gz and Mail-Mbox-MessageParser-1.5111.tar.gz

About: Mail-Mbox-MessageParser is a feature-poor but very fast mbox parser (Perl module).

Fix_Sort_Versions.pm  (Mail-Mbox-MessageParser-1.5110):Fix_Sort_Versions.pm  (Mail-Mbox-MessageParser-1.5111)
package Module::Install::PRIVATE::Fix_Sort_Versions; package Module::Install::PRIVATE::Fix_Sort_Versions;
use strict; use strict;
use warnings; use warnings;
use File::Slurper qw(read_text write_text);
use vars qw( @ISA $VERSION ); use vars qw( @ISA $VERSION );
use Module::Install::Base; use Module::Install::Base;
@ISA = qw( Module::Install::Base ); @ISA = qw( Module::Install::Base );
$VERSION = sprintf "%d.%02d%02d", q/0.1.0/ =~ /(\d+)/g; $VERSION = sprintf "%d.%02d%02d", q/0.1.0/ =~ /(\d+)/g;
# --------------------------------------------------------------------------- # ---------------------------------------------------------------------------
sub fix_sort_versions { sub fix_sort_versions {
my ($self, $file) = @_; my ($self, $file) = @_;
$self->configure_requires('File::Slurp', 0); $self->perl_version('5.005');
$self->include_deps('File::Slurper', 0);
require File::Slurper;
File::Slurper->import('read_text', 'write_text');
print "Fixing POD in $file\n"; print "Fixing POD in $file\n";
my $code = read_text($file, undef, 1); my $code = read_text($file, undef, 1);
$code =~ s|^=encoding.*||m; $code =~ s|^=encoding.*||m;
write_text($file, $code, undef, 1); write_text($file, $code, undef, 1);
} }
1; 1;
 End of changes. 2 change blocks. 
2 lines changed or deleted 6 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)