diff options
| author | Larry Wall <lwall@netlabs.com> | 1993-02-04 22:50:33 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@netlabs.com> | 1993-02-04 22:50:33 +0000 |
| commit | e334a159a5616cab575044bafaf68f75b7bb3a16 (patch) | |
| tree | 47369293eb7417e5322f7fe46e1a1cfc0d9c69ef /x2p | |
| parent | 514dae0dba791ec01681adb3b3946a7646e146b3 (diff) | |
| download | perl-e334a159a5616cab575044bafaf68f75b7bb3a16.tar.gz | |
perl 4.0 patch 36: (combined patch)perl-4.0.36
Since Ed Barton sent me a patch for the malignent form of "Malformed
cmd links", I finally broke down and made a patch for the various
other little things that have been accumulating on version 4.
Diffstat (limited to 'x2p')
| -rw-r--r-- | x2p/find2perl.SH | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/x2p/find2perl.SH b/x2p/find2perl.SH index 7e49cd003f..4a95de04a1 100644 --- a/x2p/find2perl.SH +++ b/x2p/find2perl.SH @@ -68,11 +68,11 @@ while (@ARGV) { die "Malformed -perm argument: $onum\n" unless $onum =~ /^-?[0-7]+$/; if ($onum =~ s/^-//) { $onum = '0' . sprintf("%o", oct($onum) & 017777); # s/b 07777 ? - $out .= &tab . "(\$mode & $onum) == $onum"; + $out .= &tab . "((\$mode & $onum) == $onum)"; } else { $onum = '0' . $onum unless $onum =~ /^0/; - $out .= &tab . "(\$mode & 0777) == $onum"; + $out .= &tab . "((\$mode & 0777) == $onum)"; } } elsif ($_ eq 'type') { |