| … | |
… | |
| 2832 | $CFG->{$k} = $v unless exists $CFG->{$k}; |
2832 | $CFG->{$k} = $v unless exists $CFG->{$k}; |
| 2833 | } |
2833 | } |
| 2834 | |
2834 | |
| 2835 | my @args = @ARGV; |
2835 | my @args = @ARGV; |
| 2836 | |
2836 | |
|
|
2837 | # OS X passes some process serial number of other shit. they |
|
|
2838 | # could have used an env var or any other sane mechanism. but |
|
|
2839 | # would it be os x then? no... |
|
|
2840 | shift @args if $args[0] =~ /^-psn_/; |
|
|
2841 | |
| 2837 | my $profile = 'default'; |
2842 | my $profile = 'default'; |
| 2838 | |
2843 | |
| 2839 | for (my $i = 0; $i < @args; $i++) { |
2844 | for (my $i = 0; $i < @args; $i++) { |
| 2840 | if ($args[$i] =~ /^--?profile$/) { |
2845 | if ($args[$i] =~ /^--?profile$/) { |
| 2841 | $profile = $args[$i + 1]; |
2846 | $profile = $args[$i + 1]; |
