Changeset 185
- Timestamp:
- 11/16/04 00:24:03 (4 years ago)
- Files:
-
- manage/trunk/CLI.pm (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
manage/trunk/CLI.pm
r184 r185 228 228 $ac =~ s/^(\d+\))?(\$(\*)?)?//; 229 229 $bc =~ s/^(\d+\))?(\$(\*)?)?//; 230 if (($lhs or $rhs) and not ($ac =~ /^[A-Z]+$/ or $bc =~ /^[A-Z]+$/)) { 230 231 if ($ac =~ /^[A-Z]+$/ or $bc =~ /^[A-Z]+$/) { 232 $a cmp $b; 233 } elsif ($lhs or $rhs) { 231 234 die("Can't mix ordered and unordered commands '$ac' <=> '$bc'"); 232 235 } else {
