From 04d1bdae703880e4feaa09e3332532bd72dab6f9 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Tue, 16 Jan 2001 16:40:23 +0000 Subject: fixed use of white space in archive name. --- packdrake.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/packdrake.pm b/packdrake.pm index 97d004f..7bd57f4 100644 --- a/packdrake.pm +++ b/packdrake.pm @@ -446,7 +446,7 @@ sub build_archive { $packer->{data}{$_} = [ 'f', $off1, $siz1, $packer->{data}{$_}[3], $packer->{data}{$_}[4] ]; } - system "cat $packer->{tmpz} >>$packer->{archive}"; + system "cat '$packer->{tmpz}' >>'$packer->{archive}'"; $off1 += $siz1; $off2 = 0; $siz2 = 0; @filelist = (); @@ -461,7 +461,7 @@ sub build_archive { $packer->{data}{$_} = [ 'f', $off1, $siz1, $packer->{data}{$_}[3], $packer->{data}{$_}[4] ]; } - system "cat $packer->{tmpz} >>$packer->{archive}"; + system "cat '$packer->{tmpz}' >>'$packer->{archive}'"; $off1 += $siz1; } print STDERR "real archive size of $packer->{archive} is $off1\n"; -- cgit v1.2.1