[Bast-commits] r3750 - local-lib/1.000/trunk/lib/local

[apeiron at dev.catalyst.perl.org]

Author: apeiron
Date: 2007-09-16 03:25:00 +0100 (Sun, 16 Sep 2007)
New Revision: 3750

Modified:
   local-lib/1.000/trunk/lib/local/lib.pm
Log:
o   Whoops. Brace style fixings.


Modified: local-lib/1.000/trunk/lib/local/lib.pm
===================================================================
--- local-lib/1.000/trunk/lib/local/lib.pm	2007-09-16 02:21:04 UTC (rev 3749)
+++ local-lib/1.000/trunk/lib/local/lib.pm	2007-09-16 02:25:00 UTC (rev 3750)
@@ -215,12 +215,9 @@
   }
   my $shelltype = do {
       local $_ = $shellbin;
-      if(/csh/)
-      {
+      if(/csh/) {
           'csh'
-      }
-      else
-      {
+      } else {
           'bourne'
       }
   };