perl 4.0 patch 14: patch #11, continued

See patch #11.

1 files changed, 3 insertions, 3 deletions

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;
 	};