[interchange] * Reprioritize little-used option

Mike Heins interchange-cvs at icdevgroup.org
Thu Oct 27 13:20:21 UTC 2016


commit 496e1f12170cf66f4c810a7d27802c23ea00ddc5
Author: Mike Heins <mikeh at 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;



More information about the interchange-cvs mailing list