Changeset 15265 for trunk/DataStore/lib/DataStore/File.pm

Timestamp:

Oct 9, 2007, 1:21:22 PM (19 years ago)

Author:

jhoblitt

Message:

fix "byte" length file checking

File:

• trunk/DataStore/lib/DataStore/File.pm (modified) (4 diffs)

trunk/DataStore/lib/DataStore/File.pm

@@ -1 +1 @@
 # Copyright (C) 2006  Joshua Hoblitt
 #
-# $Id: File.pm,v 1.14 2006-08-31 22:58:34 jhoblitt Exp $
+# $Id: File.pm,v 1.15 2007-10-09 23:21:22 jhoblitt Exp $
 
 package DataStore::File;
@@ -232 +232 @@
     my $response = $ua->request($request, $filename);
 
-    if ($response->is_success) {
+    IS_SUCCESS: if ($response->is_success) {
         # check size
         if (defined $self->bytes) {
@@ -243 +243 @@
                 # set the filename to undef to indicate an error
                 $filename = undef;
-                last;
+                last IS_SUCCESS;
             }
         }
@@ -256 +256 @@
                 # set the filename to undef to indicate an error
                 $filename = undef;
-                last;
+                last IS_SUCCESS;
             }
         }