equal
deleted
inserted
replaced
25 my $self = bless {} => $class; |
25 my $self = bless {} => $class; |
26 my $r = shift; |
26 my $r = shift; |
27 $r =~ s/\s*$//; # should match any \r or \n too |
27 $r =~ s/\s*$//; # should match any \r or \n too |
28 |
28 |
29 # decode the status |
29 # decode the status |
30 if ((my $e) = $r =~ /^E(.)/) { |
30 if (($self->{error_code}) = $r =~ /^E(.)/) { |
31 $self->{error_code} = unpack("C", $e); |
|
32 $self->{ok} = 0; |
31 $self->{ok} = 0; |
33 } |
32 } |
34 elsif (my ($jobid, $data, $csum) = $r =~ /^[DO](..)(.*)(..)$/) { |
33 elsif (my ($jobid, $data, $csum) = $r =~ /^[DO](..)(.*)(..)$/) { |
35 $self->{ok} = 1; |
34 $self->{ok} = 1; |
36 $self->{data} = defined $data ? $data : ""; |
35 $self->{data} = defined $data ? $data : ""; |