Changeset 38610 for lang

Timestamp:

10/21/10 11:01:14 (3 years ago)

Author:

mumumu

Message:

- supressed the "Use of uniitialized value in string" error.
-- Use of uninitialized value in string eq at module/Tools/HTTPClient.pm line 424

Files:

• lang/perl/tiarra/trunk/module/Tools/HTTPClient.pm (modified) (1 diff)

lang/perl/tiarra/trunk/module/Tools/HTTPClient.pm

@@ -422 +422 @@
     {
       my $st = $this->{parser}->object->{StreamState};
-      $success = $st =~ /^(?:body|parsed)\z/ && $this->{parser}{rest} eq '';
+      $success = $st =~ /^(?:body|parsed)\z/ && defined($this->{parser}{rest}) && $this->{parser}{rest} eq '';
     }else
     {