[svn:p5ee] r13725 - p5ee/trunk/App-Repository/lib/App

[spadkins]

Author: spadkins
Date: Wed Jan 13 14:55:04 2010
New Revision: 13725

Modified:
   p5ee/trunk/App-Repository/lib/App/Repository.pm

Log:
Remove multiple parans, ie abs((-742)) will now be abs(-742)

Modified: p5ee/trunk/App-Repository/lib/App/Repository.pm
==============================================================================
--- p5ee/trunk/App-Repository/lib/App/Repository.pm     (original)
+++ p5ee/trunk/App-Repository/lib/App/Repository.pm     Wed Jan 13 14:55:04 2010
@@ -3840,8 +3840,12 @@
     }
     else {
         my ($func, $found, $val, $val2, @vals);
+
+        while ($value =~ s/\(\(([^()]*)\)\)/($1)/) {
+            # do nothing
+        }
         while ($value =~ /([a-z_]+)\(([^()]*)\)/) {
-            #print "EXPR: BEFORE [$value] (func subst)\n";
+            #print STDERR "EXPR: BEFORE [$value] (func subst)\n";
             $func  = $1;
             $found = $2;
             $val = undef;