[svn:parrot] r36923 - trunk/tools/dev

[rurban at svn.parrot.org]

Author: rurban
Date: Sat Feb 21 12:36:12 2009
New Revision: 36923
URL: https://trac.parrot.org/parrot/changeset/36923

Log:
[tools] fix wrong optimization logic from r36890.

Modified:
   trunk/tools/dev/pbc_header.pl

Modified: trunk/tools/dev/pbc_header.pl
==============================================================================
--- trunk/tools/dev/pbc_header.pl	Sat Feb 21 12:16:32 2009	(r36922)
+++ trunk/tools/dev/pbc_header.pl	Sat Feb 21 12:36:12 2009	(r36923)
@@ -109,7 +109,7 @@
             my $leftover = (18 + $uuid_len) % 16;
             my $n = $leftover == 0 ? 0 : 16 - $leftover;
             # we can skip the copy if there's enough room already (pad:14=>2)
-            goto SEEK if $n < FP_LEN;
+            goto SEEK if $n > FP_LEN;
             my $dirstart = 18 + $uuid_len + $n;
             seek $F, $dirstart, 0;   # skip to dir
             my $size = -s $F;