find2perl does not grok the 'c' suffix to the -size argument

	Message-Id: <199905140418.WAA18826@xerxes.courtesan.com>

p4raw-id: //depot/perl@3431

diff --git a/x2p/find2perl.PL b/x2p/find2perl.PL
index f82b660..cbb32fd 100644 (file)
--- 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);