equal
deleted
inserted
replaced
80 my ($name, $settings_str) = ($1, $2 || ""); |
80 my ($name, $settings_str) = ($1, $2 || ""); |
81 $name =~ s/^([a-z])/\U$1/; |
81 $name =~ s/^([a-z])/\U$1/; |
82 print SETUP_FILE "setup {* Mirabelle_$name.invoke ["; |
82 print SETUP_FILE "setup {* Mirabelle_$name.invoke ["; |
83 my $sep = ""; |
83 my $sep = ""; |
84 foreach (split(/,/, $settings_str)) { |
84 foreach (split(/,/, $settings_str)) { |
85 if (m/\s*(.*)\s*=\s*(.*)\s*/) { |
85 if (m/\s*([^=]*)\s*=\s*(.*)\s*/) { |
86 print SETUP_FILE "$sep(\"$1\", \"$2\")"; |
86 print SETUP_FILE "$sep(\"$1\", \"$2\")"; |
87 $sep = ", "; |
87 $sep = ", "; |
88 } |
88 } |
89 elsif (m/\s*(.*)\s*/) { |
89 elsif (m/\s*(.*)\s*/) { |
90 print SETUP_FILE "$sep(\"$1\", \"\")"; |
90 print SETUP_FILE "$sep(\"$1\", \"\")"; |