* extfs/patchfs.in (openread): Use quoted $archive when opening

archives.
(list): Set $archive to quoted $_[0].
This commit is contained in:
Andrew V. Samoilov 2002-12-18 14:31:54 +00:00
parent e12b5ddcb6
commit 76a86209d4
2 changed files with 10 additions and 4 deletions

View File

@ -1,3 +1,9 @@
2002-12-18 Andrew V. Samoilov <sav@bcs.zp.ua>
* extfs/patchfs.in (openread): Use quoted $archive when opening
archives.
(list): Set $archive to quoted $_[0].
2002-12-16 Pavel Roskin <proski@gnu.org>
* extfs/rpm: Don't check package signatures - it creates a lot

View File

@ -46,7 +46,7 @@ sub error
# list files affected by patch
sub list
{
my ($archive)=@_;
my ($archive)=(quotemeta $_[0]);
my ($state,$pos,$npos,$time);
my ($f,$fsrc,$fdst,$prefix);
@ -55,7 +55,7 @@ sub list
import Date::Parse if ($parsedates);
# state==1 means diff contents, state==0 mens comments
# state==1 means diff contents, state==0 means comments
$state=1; $f="";
while (<I>) {
if (/^-{3} /) {
@ -193,9 +193,9 @@ sub openread
$_=`$file $archive`;
if (/bzip/) {
open I, "$bzip -dc $ARGV[1] |";
open I, "$bzip -dc $archive |";
} elsif (/gzip/) {
open I, "$gzip -dc $ARGV[1] |";
open I, "$gzip -dc $archive |";
} else {
open I, "< $ARGV[1]";
}