Changeset 5340

Timestamp:

Oct 14, 2005, 2:41:20 PM (21 years ago)

Author:

jhoblitt

Message:

change get_file() to remove files with the incorrect size/md5

File:

• trunk/PS-IPP-PSFTP/lib/PS/IPP/PSFTP.pm (modified) (3 diffs)

trunk/PS-IPP-PSFTP/lib/PS/IPP/PSFTP.pm

@@ -1 +1 @@
 # Copyright (C) 2005  Joshua Hoblitt
 #
-# $Id: PSFTP.pm,v 1.8 2005-10-14 02:35:42 jhoblitt Exp $
+# $Id: PSFTP.pm,v 1.9 2005-10-15 00:41:20 jhoblitt Exp $
 
 package PS::IPP::PSFTP;
@@ -182 +182 @@
         my $size = stat($p{filename})->size;
         if (! $p{size} == $size) {
+            unlink $p{filename};
             carp "url: ", $p{url},
                  " - expected size: ", $p{size},
@@ -192 +193 @@
         my $md5 = file_md5_hex($p{filename});
         if (! $p{md5} eq $md5) {
+            unlink $p{filename};
             carp "url: ", $p{url},
                  " - expected md5: ", $p{md5},