Re: [ANNOUNCE] Archive::Tar 1.25
Robin Barker wrote: On 8/25/05, Jos I. Boumans [EMAIL PROTECTED] wrote: Thanks, applied as 12201, with the following additions: * add pod to ptardiff so it gets a manpage I also just fixed a test failure when perl was built with -Dmksymlinks. I think this isn't a common configuration since nobody found it before. Patch at : http://public.activestate.com/cgi-bin/perlbrowse?patch=25333 - I don't think this is the best fix for this. Not only do I use -Dmksymlinks but I sometimes do: % sh ../perl-current/Configure -des -Dmksymlinks -Dusedevel % make all test % make distclean % sh Configure -des -Dusedevel -Duse64bitint -Dnoextensions=Encode This now fails the fixed Archive::Tar test. Better to create the required files as not links in Archive/Tar/t/00_setup.t See the attached patch; it is also necessary to do. % rm -rf lib/Archive/Tar/t/src/long/b lib/Archive/Tar/t/src/short/b Thanks, applied as change #25348 to bleadperl.
RE: [ANNOUNCE] Archive::Tar 1.25
-Original Message- From: Rafael Garcia-Suarez [mailto:[EMAIL PROTECTED] Sent: 27 August 2005 17:59 To: Jos I. Boumans Cc: Perl 5 Porters Subject: Re: [ANNOUNCE] Archive::Tar 1.25 On 8/25/05, Jos I. Boumans [EMAIL PROTECTED] wrote: Thanks, applied as 12201, with the following additions: * add pod to ptardiff so it gets a manpage I also just fixed a test failure when perl was built with -Dmksymlinks. I think this isn't a common configuration since nobody found it before. Patch at : http://public.activestate.com/cgi-bin/perlbrowse?patch=25333 - I don't think this is the best fix for this. Not only do I use -Dmksymlinks but I sometimes do: % sh ../perl-current/Configure -des -Dmksymlinks -Dusedevel % make all test % make distclean % sh Configure -des -Dusedevel -Duse64bitint -Dnoextensions=Encode This now fails the fixed Archive::Tar test. Better to create the required files as not links in Archive/Tar/t/00_setup.t See the attached patch; it is also necessary to do. % rm -rf lib/Archive/Tar/t/src/long/b lib/Archive/Tar/t/src/short/b Robin --- This e-mail and any attachments may contain confidential and/or privileged material; it is for the intended addressee(s) only. If you are not a named addressee, you must not use, retain or disclose such information. NPL Management Ltd cannot guarantee that the e-mail or any attachments are free from viruses. NPL Management Ltd. Registered in England and Wales. No: 2937881 Registered Office: Serco House, 16 Bartley Wood Business Park, Hook, Hampshire, United Kingdom RG27 9UY --- archivetar.patch Description: Binary data
Re: [ANNOUNCE] Archive::Tar 1.25
On 8/25/05, Jos I. Boumans [EMAIL PROTECTED] wrote: Thanks, applied as 12201, with the following additions: * add pod to ptardiff so it gets a manpage I also just fixed a test failure when perl was built with -Dmksymlinks. I think this isn't a common configuration since nobody found it before. Patch at : http://public.activestate.com/cgi-bin/perlbrowse?patch=25333
Re: [ANNOUNCE] Archive::Tar 1.25
On Aug 22, 2005, at 5:00 PM, Rafael Garcia-Suarez wrote: 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)to_blead.diff Thanks, applied as 12201, with the following additions: * add pod to ptardiff so it gets a manpage -- Jos Boumans 'Real programmers use cat a.out' CPANPLUShttp://cpanlus.sf.net
Re: [ANNOUNCE] Archive::Tar 1.25
Jos I. Boumans wrote:
- Add ptardiff program as suggested by KWILLIAMS (#13658)
Hmm, you probably forgot this, then :
--- Makefile.PL.orig2005-08-22 10:56:43.0 +0200
+++ Makefile.PL 2005-08-22 10:56:52.0 +0200
@@ -48,7 +48,7 @@
NAME= 'Archive::Tar',
VERSION_FROM= 'lib/Archive/Tar.pm', # finds $VERSION
dist= { COMPRESS = 'gzip -9f', SUFFIX = 'gz' },
-EXE_FILES = ['bin/ptar'],
+EXE_FILES = ['bin/ptar', 'bin/ptardiff'],
PREREQ_PM = $prereqs,
AUTHOR = 'Jos Boumans kane[at]cpan.org',
ABSTRACT= 'Manipulates TAR archives'
Re: [ANNOUNCE] Archive::Tar 1.25
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. -- Jos Boumans Suicide is our way of saying to God: You can't fire me! I quit! CPANPLUShttp://cpanplus.sf.net
Re: [ANNOUNCE] Archive::Tar 1.25
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.0 +0200
+++ /home/rafael/bleadperl/lib/Archive/Tar/Constant.pm 2005-08-22
12:50:05.0 +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.0 +0200
+++ /home/rafael/bleadperl/lib/Archive/Tar/File.pm 2005-08-22
12:50:05.0 +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.pm2005-08-20 11:28:40.0 +0200
+++ /home/rafael/bleadperl/lib/Archive/Tar.pm 2005-08-22 12:50:05.0
+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 CIO::String support loaded.
Either CIO::String or Cperlio support is needed to support writing
-stringified archives. Currently, Cperlio is the preffered method, if
+stringified archives. Currently, Cperlio is the preferred method, if
available.
See the CGLOBAL VARIABLES section to see how to change this preference.
@@ -1182,7 +1181,7 @@
This requires Cperl-5.8 or higher, compiled with Cperlio
Either CIO::String or Cperlio support is needed to support writing
-stringified archives. Currently, Cperlio is the preffered method, if
+stringified archives. Currently, Cperlio is the preferred method, if
available.
See the CGLOBAL 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.0 +0200
+++ /home/rafael/bleadperl/lib/Archive/Tar/bin/ptar 2005-08-22
15:31:16.0 +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]
[ANNOUNCE] Archive::Tar 1.25
Greetings, File successfully copied to '/home/ftp/incoming/Archive-Tar-1.25.tar.gz' And here is the corresponding changelist: * important changes in version 1.25 20/8/2005: - Move the changes into it's own file - Add patch from abeltje to make tests pass on VMS. This is *just* the tests -- code may need some extra work to be reliable (#12678) - Add faq about accessing 'tar.Z' files, as provided by Paul Marquess - Add a warning if the read() call from new() fails to return data - Address #13636, where heuristics were 'upgrading' a file to a directory if the file had an @LongLink entry, and the shortened filename ended in a '/'. - Add ptardiff program as suggested by KWILLIAMS (#13658) -- Jos Boumans 'Real programmers use cat a.out' CPANPLUShttp://cpanplus.sf.net
