Minor fixes.

57650d6c · Leigh B. Stoller · 473b0590 · 57650d6c
Commit 57650d6c authored Mar 02, 2005 by Leigh B. Stoller
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 4 deletions

utils/setdest.in utils/setdest.in +4 -4

No files found.
--- a/utils/setdest.in
+++ b/utils/setdest.in
@@ -64,13 +64,13 @@ if (defined($options{"d"})) {
    $debug = 1;
 }
 if (defined($options{"x"})) {
-    $destx = 1;
+    $destx = $options{"x"};
 }
 if (defined($options{"y"})) {
-    $desty = 1;
+    $desty = $options{"y"};
 }
 if (defined($options{"o"})) {
-    $desto = 1;
+    $desto = $options{"o"};
 }
 if (@ARGV != 1) {
    usage();
@@ -126,7 +126,7 @@ my $inject_string = "$TEVC -e $pid/$eid now $vname SETDEST " .
    "X=" . $destx . " Y=" . $desty . " ORIENTATION=" . $desto;

 if ($debug) {
-    print "$inject_string\n";
+    print $inject_string . "\n";
 }

 system($inject_string) &&