diff options
| author | Todd C. Miller <Todd.Miller@courtesan.com> | 1999-05-13 16:18:43 -0600 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-17 08:38:09 +0000 |
| commit | 9d6e9d4dc69df06db9fc574444756ce7168620e7 (patch) | |
| tree | b66e8abc553535fb716cb593befd43c161db8e36 /x2p | |
| parent | f89d6eaa35318513fcfc9665bbb2d0bcea3326ee (diff) | |
| download | perl-9d6e9d4dc69df06db9fc574444756ce7168620e7.tar.gz | |
find2perl does not grok the 'c' suffix to the -size argument
Message-Id: <199905140418.WAA18826@xerxes.courtesan.com>
p4raw-id: //depot/perl@3431
Diffstat (limited to 'x2p')
| -rw-r--r-- | x2p/find2perl.PL | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/x2p/find2perl.PL b/x2p/find2perl.PL index f82b6602e7..cbb32fdb65 100644 --- a/x2p/find2perl.PL +++ b/x2p/find2perl.PL @@ -140,7 +140,12 @@ while (@ARGV) { $out .= &tab . '($ino ' . &n(shift); } elsif ($_ eq 'size') { - $out .= &tab . '(int(((-s _) + 511) / 512) ' . &n(shift); + $_ = shift; + if (s/c$//) { + $out .= &tab . '(int(-s _) ' . &n($_); + } else { + $out .= &tab . '(int(((-s _) + 511) / 512) ' . &n($_); + } } elsif ($_ eq 'atime') { $out .= &tab . '(int(-A _) ' . &n(shift); |