| … | |
… | |
| 136 | } |
136 | } |
| 137 | |
137 | |
| 138 | # cook_args(STRING) - parses a string of the form ARG1="FOO" ARG2="BAR". Returns |
138 | # cook_args(STRING) - parses a string of the form ARG1="FOO" ARG2="BAR". Returns |
| 139 | # a list which pairs into key/values and fits nicely in {}s. |
139 | # a list which pairs into key/values and fits nicely in {}s. |
| 140 | # |
140 | # |
| 141 | sub cook_args($) { |
141 | sub cook_args($) { # ... also used by bin/wwdb, so watch out |
| 142 | my ($raw_args) = @_; |
142 | my ($raw_args) = @_; |
| 143 | my @args = (); |
143 | my @args = (); |
| 144 | |
144 | |
| 145 | # Boy I love m//g in scalar context! Go read the camel book, heathen. |
145 | # Boy I love m//g in scalar context! Go read the camel book, heathen. |
| 146 | # First, get the whole token with the quotes on both ends... |
146 | # First, get the whole token with the quotes on both ends... |
Parent Directory
| 
Revision Log
| 
Patch