diff options
Diffstat (limited to 'gnu/usr.bin/perl/x2p/find2perl.PL')
| -rw-r--r-- | gnu/usr.bin/perl/x2p/find2perl.PL | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/gnu/usr.bin/perl/x2p/find2perl.PL b/gnu/usr.bin/perl/x2p/find2perl.PL index f82b6602e72..cbb32fdb65e 100644 --- a/gnu/usr.bin/perl/x2p/find2perl.PL +++ b/gnu/usr.bin/perl/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); |