lib/Quancom/Result.pm
changeset 17 ecc10b50b7a6
parent 15 2d41fac09084
child 19 6acf8ea44e0a
--- a/lib/Quancom/Result.pm	Tue Jan 06 09:31:17 2009 +0100
+++ b/lib/Quancom/Result.pm	Tue Jan 06 10:56:28 2009 +0100
@@ -27,8 +27,7 @@
     $r =~ s/\s*$//;    # should match any \r or \n too
 
     # decode the status
-    if ((my $e) = $r =~ /^E(.)/) {
-	$self->{error_code} = unpack("C", $e);
+    if (($self->{error_code}) = $r =~ /^E(.)/) {
         $self->{ok} = 0;
     }
     elsif (my ($jobid, $data, $csum) = $r =~ /^[DO](..)(.*)(..)$/) {