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](..)(.*)(..)$/) {