[45247] users/perry/port_cutleaves/port_cutleaves

[perry at macports.org]

Revision: 45247
          http://trac.macports.org/changeset/45247
Author:   perry at macports.org
Date:     2009-01-11 17:07:42 -0800 (Sun, 11 Jan 2009)
Log Message:
-----------
perry/port_cutleaves - Use regexp rather than switch.

Modified Paths:
--------------
    users/perry/port_cutleaves/port_cutleaves

Modified: users/perry/port_cutleaves/port_cutleaves
===================================================================
--- users/perry/port_cutleaves/port_cutleaves	2009-01-12 00:57:19 UTC (rev 45246)
+++ users/perry/port_cutleaves/port_cutleaves	2009-01-12 01:07:42 UTC (rev 45247)
@@ -85,12 +85,11 @@
             flush stdout
 
             gets stdin choice
-            switch -glob $choice {
-                y* {
-                    puts ""
-                    return [cut_leaves [leaves] $processed_leaves]
-                }
-                default { return 0 }
+            if {[regexp {^y} $choice]} {
+                puts ""
+                return [cut_leaves [leaves] $processed_leaves]
+            } else {
+                return 0
             }
         }
     }
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090111/aad7db4f/attachment.html>