[svn:parrot] r46718 - trunk/lib/Parrot

cotto at svn.parrot.org cotto at svn.parrot.org
Sun May 16 21:55:16 UTC 2010


Author: cotto
Date: Sun May 16 21:55:16 2010
New Revision: 46718
URL: https://trac.parrot.org/parrot/changeset/46718

Log:
[opsrenumber] minor simplification, no functional changes (even in the rare case when this script is run)

Modified:
   trunk/lib/Parrot/OpsRenumber.pm

Modified: trunk/lib/Parrot/OpsRenumber.pm
==============================================================================
--- trunk/lib/Parrot/OpsRenumber.pm	Sun May 16 21:42:06 2010	(r46717)
+++ trunk/lib/Parrot/OpsRenumber.pm	Sun May 16 21:55:16 2010	(r46718)
@@ -124,7 +124,7 @@
         s/^\s*//;
         next unless $_;
         ( $name, $number ) = split( /\s+/, $_ );
-        $seen{$name}  = $number;
+        $seen{$name}  = 1;
         $fixed{$name} = $number if $fix;
     }
     close $OP;


More information about the parrot-commits mailing list