Mailing List Archive

[interchange] * Reprioritize little-used option
commit 496e1f12170cf66f4c810a7d27802c23ea00ddc5
Author: Mike Heins <mikeh@endpoint.com>
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;

_______________________________________________
interchange-cvs mailing list
interchange-cvs@icdevgroup.org
http://www.icdevgroup.org/mailman/listinfo/interchange-cvs