- Timestamp:
- 2006-04-12T09:17:42+12:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/classify.pm
r10218 r11644 101 101 my ($opt, $key, $value); 102 102 foreach $opt (@$classifyoption) { 103 if ($opt =~ /^(\w+)=(.*)$/) {104 push @newoptions, "-$1", $2;105 } else {103 # if ($opt =~ /^(\w+)=(.*)$/) { 104 # push @newoptions, "-$1", $2; 105 # } else { 106 106 push @newoptions, $opt; 107 }107 #} 108 108 } 109 109
Note:
See TracChangeset
for help on using the changeset viewer.