Index: /trunk/DataStore/lib/DataStore/File.pm
===================================================================
--- /trunk/DataStore/lib/DataStore/File.pm	(revision 15264)
+++ /trunk/DataStore/lib/DataStore/File.pm	(revision 15265)
@@ -1,5 +1,5 @@
 # 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,5 +232,5 @@
     my $response = $ua->request($request, $filename);
 
-    if ($response->is_success) {
+    IS_SUCCESS: if ($response->is_success) {
         # check size
         if (defined $self->bytes) {
@@ -243,5 +243,5 @@
                 # set the filename to undef to indicate an error
                 $filename = undef;
-                last;
+                last IS_SUCCESS;
             }
         }
@@ -256,5 +256,5 @@
                 # set the filename to undef to indicate an error
                 $filename = undef;
-                last;
+                last IS_SUCCESS;
             }
         }