[interchange] * Reprioritize little-used option
Mike Heins <[email protected]> Thu, 27 Oct 2016 13:20:21 +0000
| Newsgroups | gmane.comp.web.interchange.cvs |
|---|---|
| Message-ID | <[email protected]> |
commit 496e1f12170cf66f4c810a7d27802c23ea00ddc5 Author: Mike Heins <[email protected]> Date: Thu Oct 27 09:20:09 2016 -0400 * Reprioritize little-used option lib/Vend/Interpolate.pm | 14 +++++++------- 1 files changed, 7 insertions(+), 7 deletions(-) --- diff --git a/lib/Vend/Interpolate.pm b/lib/Vend/Interpolate.pm index 0e6028a..ed20e93 100644 --- a/lib/Vend/Interpolate.pm +++ b/lib/Vend/Interpolate.pm @@ -983,13 +983,6 @@ sub conditional { $op .= qq% $operator $comp% if defined $comp; } - elsif($base eq 'scratchd') { - $op = qq%$::Scratch->{$term}%; - $op = "q{$op}" unless defined $noop; - $op .= qq% $operator $comp% - if defined $comp; - delete $::Scratch->{$term}; - } elsif($base eq 'tmp') { $op = qq%$Tmp->{$term}%; $op = "q{$op}" unless defined $noop; @@ -1186,6 +1179,13 @@ sub conditional { $op .= qq% $operator $comp% if defined $comp; } + elsif($base eq 'scratchd') { + $op = qq%$::Scratch->{$term}%; + $op = "q{$op}" unless defined $noop; + $op .= qq% $operator $comp% + if defined $comp; + delete $::Scratch->{$term}; + } else { $op = qq%$term%; $op = "q{$op}" unless defined $noop;