[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.340.2.9,1.340.2.10
Status: Beta
Brought to you by:
kwilliams
From: Ken W. <kwi...@us...> - 2005-01-05 04:37:42
|
Update of /cvsroot/module-build/Module-Build/lib/Module/Build In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7983/lib/Module/Build Modified Files: Tag: release-0_26_branch Base.pm Log Message: Use split_like_shell() on 'gzip' and 'tar' stuff Index: Base.pm =================================================================== RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v retrieving revision 1.340.2.9 retrieving revision 1.340.2.10 diff -C2 -d -r1.340.2.9 -r1.340.2.10 *** Base.pm 13 Dec 2004 04:16:40 -0000 1.340.2.9 --- Base.pm 5 Jan 2005 04:37:32 -0000 1.340.2.10 *************** *** 2309,2314 **** if ($self->{args}{tar}) { my $tar_flags = $self->{properties}{verbose} ? 'cvf' : 'cf'; ! $self->do_system($self->{args}{tar}, $tar_flags, "$file.tar", $dir); ! $self->do_system($self->{args}{gzip}, "$file.tar") if $self->{args}{gzip}; } else { require Archive::Tar; --- 2309,2314 ---- if ($self->{args}{tar}) { my $tar_flags = $self->{properties}{verbose} ? 'cvf' : 'cf'; ! $self->do_system($self->split_like_shell($self->{args}{tar}), $tar_flags, "$file.tar", $dir); ! $self->do_system($self->split_like_shell($self->{args}{gzip}), "$file.tar") if $self->{args}{gzip}; } else { require Archive::Tar; |