o Whoops. Brace style fixings.
apeiron [Sun, 16 Sep 2007 02:25:00 +0000 (02:25 +0000)]
git-svn-id: http://dev.catalyst.perl.org/repos/bast/local-lib/1.000/trunk@3750 bd8105ee-0ff8-0310-8827-fb3f25b6796d

lib/local/lib.pm

index d60f3c7..5e08db8 100644 (file)
@@ -215,12 +215,9 @@ sub print_environment_vars_for {
   }
   my $shelltype = do {
       local $_ = $shellbin;
-      if(/csh/)
-      {
+      if(/csh/) {
           'csh'
-      }
-      else
-      {
+      } else {
           'bourne'
       }
   };