From 6df5fd6690ead2545a5712eae33a0298ed60f85a Mon Sep 17 00:00:00 2001 From: "Todd C. Miller" Date: Fri, 14 May 1999 04:22:48 +0000 Subject: Need to check for the c suffix on args to the -size switch. Patch sent to perl maintainers. --- gnu/usr.bin/perl/x2p/find2perl.PL | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'gnu/usr.bin/perl/x2p') 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); -- cgit v1.2.3