Ticket #12885: macports-parse_environment.patch

src/port1.0/portutil.tcl

@@ -556 +556 @@
                         set the_environment "$the_environment $str"
                 }
         
-                while {[regexp "^(?: *)(\[^= \]+)=(\"|'|)(\[^\"'\].*?)\\2(?: +|$)(.*)$" ${the_environment} matchVar key delimiter value remaining]} {
+                while {[regexp "^(?: *)(\[^= \]+)=(\"|'|)(\[^\"'\]*?)\\2(?: +|$)(.*)$" ${the_environment} matchVar key delimiter value remaining]} {
                         set the_environment ${remaining}
                         set ${command}.env_array(${key}) ${value}
                 }