Jos I. Boumans wrote:
>
> On Aug 22, 2005, at 11:00 AM, Rafael Garcia-Suarez wrote:
>
> > Jos I. Boumans wrote:
> >> - Add ptardiff program as suggested by KWILLIAMS (#13658)
> >
> > Hmm, you probably forgot this, then :
>
> Yes I did :(
>
> Thanks for the catch -- i'll apply just this patch and release 1.26.
I've now upgraded bleadperl to 1.26. I also kept the following changes
in bleadperl : and apologies for not having rounded them up earlier.
Those are :
- doc typos
- don't load Data::Dumper, which isn't used anywhere AFAICT
- add POD to ptar (so when it gets installed with perl, it has a
manpage generated)
diff -ur ./lib/Archive/Tar/Constant.pm
/home/rafael/bleadperl/lib/Archive/Tar/Constant.pm
--- ./lib/Archive/Tar/Constant.pm 2005-08-20 11:28:40.000000000 +0200
+++ /home/rafael/bleadperl/lib/Archive/Tar/Constant.pm 2005-08-22
12:50:05.000000000 +0200
@@ -40,7 +40,7 @@
use constant WRITE_ONLY => sub { $_[0] ? 'wb' . shift : 'w' };
use constant MODE_READ => sub { $_[0] =~ /^r/ ? 1 : 0 };
-# Pointless assigment to make -w shut up
+# Pointless assignment to make -w shut up
my $getpwuid; $getpwuid = 'unknown' unless eval { my $f = getpwuid (0); };
my $getgrgid; $getgrgid = 'unknown' unless eval { my $f = getgrgid (0); };
use constant UNAME => sub { $getpwuid || scalar getpwuid( shift() ) };
diff -ur ./lib/Archive/Tar/File.pm
/home/rafael/bleadperl/lib/Archive/Tar/File.pm
--- ./lib/Archive/Tar/File.pm 2005-08-20 11:28:40.000000000 +0200
+++ /home/rafael/bleadperl/lib/Archive/Tar/File.pm 2005-08-22
12:50:05.000000000 +0200
@@ -5,7 +5,6 @@
use File::Spec::Unix ();
use File::Spec ();
use File::Basename ();
-use Data::Dumper;
use Archive::Tar::Constant;
diff -ur ./lib/Archive/Tar.pm /home/rafael/bleadperl/lib/Archive/Tar.pm
--- ./lib/Archive/Tar.pm 2005-08-20 11:28:40.000000000 +0200
+++ /home/rafael/bleadperl/lib/Archive/Tar.pm 2005-08-22 12:50:05.000000000
+0200
@@ -14,7 +14,7 @@
$DEBUG = 0;
$WARN = 1;
$FOLLOW_SYMLINK = 0;
-$VERSION = "1.25";
+$VERSION = "1.26_01";
$CHOWN = 1;
$CHMOD = 1;
$DO_NOT_USE_PREFIX = 0;
@@ -39,7 +39,6 @@
use File::Spec ();
use File::Spec::Unix ();
use File::Path ();
-use Data::Dumper; # for debugging
use Archive::Tar::File;
use Archive::Tar::Constant;
@@ -1166,7 +1165,7 @@
Returns true if we currently have C<IO::String> support loaded.
Either C<IO::String> or C<perlio> support is needed to support writing
-stringified archives. Currently, C<perlio> is the preffered method, if
+stringified archives. Currently, C<perlio> is the preferred method, if
available.
See the C<GLOBAL VARIABLES> section to see how to change this preference.
@@ -1182,7 +1181,7 @@
This requires C<perl-5.8> or higher, compiled with C<perlio>
Either C<IO::String> or C<perlio> support is needed to support writing
-stringified archives. Currently, C<perlio> is the preffered method, if
+stringified archives. Currently, C<perlio> is the preferred method, if
available.
See the C<GLOBAL VARIABLES> section to see how to change this preference.
diff -ru ./bin/ptar /home/rafael/bleadperl/lib/Archive/Tar/bin/ptar
--- ./bin/ptar 2005-06-24 17:14:57.000000000 +0200
+++ /home/rafael/bleadperl/lib/Archive/Tar/bin/ptar 2005-08-22
15:31:16.000000000 +0200
@@ -28,34 +28,34 @@
my @files;
find( sub { push @files, $File::Find::name;
print $File::Find::name.$/ if $verbose }, @ARGV );
-
- Archive::Tar->create_archive( $file, $compress, @files );
+
+ Archive::Tar->create_archive( $file, $compress, @files );
exit;
-}
+}
my $tar = Archive::Tar->new($file, $compress);
if( $opts->{t} ) {
- print map { $_->full_path . $/ } $tar->get_files;
+ print map { $_->full_path . $/ } $tar->get_files;
-} elsif( $opts->{x} ) {
+} elsif( $opts->{x} ) {
print map { $_->full_path . $/ } $tar->get_files
if $verbose;
Archive::Tar->extract_archive($file, $compress);
-}
+}
sub usage {
qq[
-Usage: ptar -c [-v] [-z] [-f ARCHIVE_FILE] FILE FILE ...
- ptar -x [-v] [-z] [-f ARCHIVE_FILE]
- ptar -t [-z] [-f ARCHIVE_FILE]
+Usage: ptar -c [-v] [-z] [-f ARCHIVE_FILE] FILE FILE ...
+ ptar -x [-v] [-z] [-f ARCHIVE_FILE]
+ ptar -t [-z] [-f ARCHIVE_FILE]
ptar -h
-
+
ptar is a small, tar look-alike program that uses the perl module
- Archive::Tar to extract, create and list tar archives.
-
+ Archive::Tar to extract, create and list tar archives.
+
Options:
x Extract from ARCHIVE_FILE
c Create ARCHIVE_FILE from FILE
@@ -72,3 +72,34 @@
\n]
}
+=head1 NAME
+
+ptar - a tar-like program written in perl
+
+=head1 DESCRIPTION
+
+ptar is a small, tar look-alike program that uses the perl module
+Archive::Tar to extract, create and list tar archives.
+
+=head1 SYNOPSIS
+
+ ptar -c [-v] [-z] [-f ARCHIVE_FILE] FILE FILE ...
+ ptar -x [-v] [-z] [-f ARCHIVE_FILE]
+ ptar -t [-z] [-f ARCHIVE_FILE]
+ ptar -h
+
+=head1 OPTIONS
+
+ x Extract from ARCHIVE_FILE
+ c Create ARCHIVE_FILE from FILE
+ t List the contents of ARCHIVE_FILE
+ f Name of the ARCHIVE_FILE to use. Default is './default.tar'
+ z Read/Write zlib compressed ARCHIVE_FILE (not always available)
+ v Print filenames as they are added or extraced from ARCHIVE_FILE
+ h Prints this help message
+
+=head1 SEE ALSO
+
+tar(1), L<Archive::Tar>.
+
+=cut