From: Todd C. Miller <Todd.Miller@courtesan.com>
Date: Thu, 13 May 1999 22:18:43 +0000 (-0600)
Subject: find2perl does not grok the 'c' suffix to the -size argument
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9d6e9d4dc69df06db9fc574444756ce7168620e7;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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);