fix warnings

Raku · Jul 27, 2014 · aa9100f · aa9100f
1 parent 7833d5d
commit aa9100f
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/integration/99problems-11-to-20.t b/integration/99problems-11-to-20.t
@@ -19,11 +19,11 @@ plan 25;
 
         for @list {
             $x = $_;
-            if $x eq $previous {
-                $count++;
-                next;
-            }
             if defined $previous {
+                if $x eq $previous {
+                    $count++;
+                    next;
+                }
                 @encoded.push( 1 == $count ?? $previous !! [$count, $previous]);
                 $count = 1;
             }
@@ -70,7 +70,7 @@ plan 25;
 
     sub encode_direct {
         my @chars = @_;
-        my $encoded;
+        my $encoded = '';
         my $prev_ch = '';
         my $ch_cnt = 0;
         while (my $ch = @chars.shift) {