[Bps-public-commit] Shipwright branch, master, updated. 536a975a2ef85bc98b1880f162c3d71cf15f1102

sunnavy at bestpractical.com sunnavy at bestpractical.com
Thu Aug 6 04:09:02 EDT 2009


The branch, master has been updated
       via  536a975a2ef85bc98b1880f162c3d71cf15f1102 (commit)
      from  6d98616da03125428d9444ae8504fd17d36790b0 (commit)

Summary of changes:
 lib/Shipwright/Source/Base.pm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

- Log -----------------------------------------------------------------
commit 536a975a2ef85bc98b1880f162c3d71cf15f1102
Author: sunnavy <sunnavy at bestpractical.com>
Date:   Thu Aug 6 16:08:53 2009 +0800

    tiny improve: -s is enough for us

diff --git a/lib/Shipwright/Source/Base.pm b/lib/Shipwright/Source/Base.pm
index 7c9535a..0047cb8 100644
--- a/lib/Shipwright/Source/Base.pm
+++ b/lib/Shipwright/Source/Base.pm
@@ -670,7 +670,7 @@ sub _lwp_get {
     $ua->timeout(1200);
 
     if ( -e $self->source ) {
-        my $size = ( stat $self->source )[7];
+        my $size = -s $self->source;
         my $res  = $ua->head($source);
         if (   $res->is_success
             && $res->header('content-length') == $size )

-----------------------------------------------------------------------



More information about the Bps-public-commit mailing list