From 99b89507a1fb507cf2635775ed834be00409c207 Mon Sep 17 00:00:00 2001 From: Larry Wall Date: Tue, 5 Nov 1991 06:28:36 +0000 Subject: perl 4.0 patch 14: patch #11, continued See patch #11. --- x2p/find2perl.SH | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'x2p') diff --git a/x2p/find2perl.SH b/x2p/find2perl.SH index 9161f7ba98..032db6b6e0 100644 --- a/x2p/find2perl.SH +++ b/x2p/find2perl.SH @@ -96,7 +96,7 @@ while (@ARGV) { } elsif ($_ eq 'group') { $gname = shift; - $out .= &tab . "\$gid == \$gid('$gname')"; + $out .= &tab . "\$gid == \$gid{'$gname'}"; $initgroup++; } elsif ($_ eq 'nouser') { @@ -381,7 +381,7 @@ sub cpio { ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, $atime,$mtime,$ctime,$blksize,$blocks) = lstat(_); if (-f _) { - open(IN, $_) || do { + open(IN, "./$_\0") || do { warn "Couldn't open $name: $!\n"; return; }; @@ -471,7 +471,7 @@ sub tar { } } if (-f _) { - open(IN, $_) || do { + open(IN, "./$_\0") || do { warn "Couldn't open $name: $!\n"; return; }; -- cgit v1.2.1