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

[mikehh at svn.parrot.org]

Author: mikehh
Date: Sun Aug 30 22:16:55 2009
New Revision: 40883
URL: https://trac.parrot.org/parrot/changeset/40883

Log:
fix cuddled else(s) in tools/dev/parrot_shell.pl

Modified:
   trunk/tools/dev/parrot_shell.pl

Modified: trunk/tools/dev/parrot_shell.pl
==============================================================================
--- trunk/tools/dev/parrot_shell.pl	Sun Aug 30 20:54:48 2009	(r40882)
+++ trunk/tools/dev/parrot_shell.pl	Sun Aug 30 22:16:55 2009	(r40883)
@@ -73,7 +73,8 @@
         if ($line =~ m/^\s*\.\s*$/) { # Run it, baby!
             print eval_snippet($code);
             last;
-        } else {
+        }
+        else {
             $code .= $line;
         }
     }
@@ -140,10 +141,12 @@
     my ($exit_code) = @_;
     if ($exit_code == -1) {
         print "Error: failed to execute: $!\n";
-    } elsif ($exit_code & 127) {
+    }
+    elsif ($exit_code & 127) {
         printf "Error: child died with signal %d, %s coredump\n",
             ($exit_code & 127),  ($exit_code & 128) ? 'with' : 'without';
-    } else {
+    }
+    else {
         printf "Error: child exited with value %d\n", $? >> 8;
     }
 }
@@ -159,7 +162,8 @@
     if ($snippet =~ m/^\.sub/) {
         # don't wrap snippet
         return $snippet;
-    } else {
+    }
+    else {
         return <<SNIP;
 .sub main :main
 $snippet