[62278] contrib/port_cutleaves/port_cutleaves

[jmr at macports.org]

Revision: 62278
          http://trac.macports.org/changeset/62278
Author:   jmr at macports.org
Date:     2010-01-03 00:35:15 -0800 (Sun, 03 Jan 2010)
Log Message:
-----------
port_cutleaves: case insensitive matching for exclusions (#22763), bump version to 0.1.2

Modified Paths:
--------------
    contrib/port_cutleaves/port_cutleaves

Modified: contrib/port_cutleaves/port_cutleaves
===================================================================
--- contrib/port_cutleaves/port_cutleaves	2010-01-03 08:16:50 UTC (rev 62277)
+++ contrib/port_cutleaves/port_cutleaves	2010-01-03 08:35:15 UTC (rev 62278)
@@ -1,9 +1,10 @@
 #!/bin/sh
+# -*- coding: utf-8; mode: tcl; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- vim:fenc=utf-8:ft=tcl:et:sw=4:ts=4:sts=4
 # \
 exec /usr/bin/tclsh "$0" "$@"
 # $Id$
 
-set VERSION 0.1.1
+set VERSION 0.1.2
 
 # - Procedures ---------------------------------------------------------------
 
@@ -226,7 +227,7 @@
 proc should_be_excluded {port exclusions} {
     foreach exclusion $exclusions {
         set full_name [full_name $port]
-        if {$exclusion eq $full_name || [regexp $exclusion $full_name]} {
+        if {[string equal -nocase $exclusion $full_name] || [regexp -nocase $exclusion $full_name]} {
             return 1
         }
     }
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100103/0af10edc/attachment.html>