X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=lib%2FZOOM%2FIRSpy%2FTask.pm;h=8e3f251a26330d543fca904f8046003ddb6b7e7d;hp=7e6baa203483f1be6593cbbc68c7fcc7e6a2dae7;hb=42a6319d3dd983f11a4318e83dce3c02014835f2;hpb=b9a2ccdff15412db848e70befd3594426f6e2ff3

diff --git a/lib/ZOOM/IRSpy/Task.pm b/lib/ZOOM/IRSpy/Task.pm
index 7e6baa2..8e3f251 100644
--- a/lib/ZOOM/IRSpy/Task.pm
+++ b/lib/ZOOM/IRSpy/Task.pm
@@ -1,4 +1,4 @@
-# $Id: Task.pm,v 1.5 2007-05-09 11:19:20 mike Exp $
+# $Id: Task.pm,v 1.7 2007-08-01 15:11:03 mike Exp $
 
 package ZOOM::IRSpy::Task;
 
@@ -87,11 +87,11 @@ sub set_options {
 	$value = "" if !defined $value;
 	$this->conn()->log("irspy_debug", "$this setting option '$key' -> ",
 			   defined $value ? "'$value'" : "undefined");
+	my $old = $this->conn()->option($key, $value);
 	if ($persistent) {
-	    print "deleting '*$key'<br/>\n";
 	    delete $this->{options}->{"*$key"}
 	} else {
-	    $this->{options}->{$key} = $this->conn()->option($key, $value);
+	    $this->{options}->{$key} = $old;
 	}
     }
 }