"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "lib/Archive/Tar/File.pm" between
Archive-Tar-2.30.tar.gz and Archive-Tar-2.32.tar.gz

About: Archive-Tar is a Perl module for creation and in-memory manipulation of tar files.

File.pm  (Archive-Tar-2.30):File.pm  (Archive-Tar-2.32)
skipping to change at line 16 skipping to change at line 16
use File::Spec::Unix (); use File::Spec::Unix ();
use File::Spec (); use File::Spec ();
use File::Basename (); use File::Basename ();
### avoid circular use, so only require; ### avoid circular use, so only require;
require Archive::Tar; require Archive::Tar;
use Archive::Tar::Constant; use Archive::Tar::Constant;
use vars qw[@ISA $VERSION]; use vars qw[@ISA $VERSION];
#@ISA = qw[Archive::Tar]; #@ISA = qw[Archive::Tar];
$VERSION = '2.30'; $VERSION = '2.32';
### set value to 1 to oct() it during the unpack ### ### set value to 1 to oct() it during the unpack ###
my $tmpl = [ my $tmpl = [
name => 0, # string A100 name => 0, # string A100
mode => 1, # octal A8 mode => 1, # octal A8
uid => 1, # octal A8 uid => 1, # octal A8
gid => 1, # octal A8 gid => 1, # octal A8
size => 0, # octal # cdrake - not *always* octal.. A12 size => 0, # octal # cdrake - not *always* octal.. A12
mtime => 1, # octal A12 mtime => 1, # octal A12
skipping to change at line 401 skipping to change at line 401
my $self = shift; my $self = shift;
my $path = shift; my $path = shift;
my ($vol, $dirs, $file) = File::Spec->splitpath( $path, $self->is_dir ); my ($vol, $dirs, $file) = File::Spec->splitpath( $path, $self->is_dir );
my @dirs = File::Spec->splitdir( File::Spec->canonpath($dirs) ); my @dirs = File::Spec->splitdir( File::Spec->canonpath($dirs) );
### if it's a directory, then $file might be empty ### if it's a directory, then $file might be empty
$file = pop @dirs if $self->is_dir and not length $file; $file = pop @dirs if $self->is_dir and not length $file;
### splitting ../ gives you the relative path in native syntax ### splitting ../ gives you the relative path in native syntax
map { $_ = '..' if $_ eq '-' } @dirs if ON_VMS; ### Remove the root (000000) directory
### The volume from splitpath will also be in native syntax
if (ON_VMS) {
map { $_ = '..' if $_ eq '-'; $_ = '' if $_ eq '000000' } @dirs;
if (length($vol)) {
$vol = VMS::Filespec::unixify($vol);
unshift @dirs, $vol;
}
}
my $prefix = File::Spec::Unix->catdir(@dirs); my $prefix = File::Spec::Unix->catdir(@dirs);
return( $prefix, $file ); return( $prefix, $file );
} }
sub _filetype { sub _filetype {
my $self = shift; my $self = shift;
my $file = shift; my $file = shift;
return unless defined $file; return unless defined $file;
 End of changes. 2 change blocks. 
2 lines changed or deleted 10 lines changed or added

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