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

diff --git a/lib/ZOOM/IRSpy/Task.pm b/lib/ZOOM/IRSpy/Task.pm
index 7e6baa2..0cbce82 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.6 2007-05-09 11:30:53 mike Exp $
 
 package ZOOM::IRSpy::Task;
 
@@ -87,11 +87,12 @@ 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;
 	}
     }
 }