[livejournal] r22085: LJSUP-12371 (Posible bug with language o...

U   trunk/cgi-bin/LJ/Test.pm

Modified: trunk/cgi-bin/LJ/Test.pm
===================================================================
--- trunk/cgi-bin/LJ/Test.pm	2012-05-29 05:40:43 UTC (rev 22084)
+++ trunk/cgi-bin/LJ/Test.pm	2012-05-29 07:18:28 UTC (rev 22085)
@@ -79,9 +79,10 @@
         my $u;
 
         do {
-            $opts{'user'} = $opts{'user_prefix'} || 't_';
+            my $user_prefix = $opts{'user_prefix'} || 't_';
+            $opts{'user'} = $user_prefix;
 
-            foreach ( 1 .. ( 15 - length( $opts{'user_prefix'} ) ) ) {
+            foreach ( 1 .. ( 15 - length($user_prefix) ) ) {
                 $opts{'user'} .= $chars[ rand($chars_count) ];
             }