[Bps-public-commit] plient branch, master, updated. a65da20fe56d0b4c4bbf4832cd93a3c00e92ce00

[? sunnavy]

The branch, master has been updated
       via  a65da20fe56d0b4c4bbf4832cd93a3c00e92ce00 (commit)
       via  633881c6e96f0c32b68d6bf61d77d30913b6df50 (commit)
       via  7aeda58bb0f42bf08ffaf2ee476cff6db41c1964 (commit)
      from  d24e98f004fbaff0661b31c90777f514e65a4c88 (commit)

Summary of changes:
 lib/Plient/Protocol/File.pm |    2 +-
 lib/Plient/Protocol/HTTP.pm |    2 +-
 lib/Plient/Test.pm          |    3 ++-
 3 files changed, 4 insertions(+), 3 deletions(-)

- Log -----------------------------------------------------------------
commit 7aeda58bb0f42bf08ffaf2ee476cff6db41c1964
Author: sunnavy <sunnavy at bestpractical.com>
Date:   Fri Apr 23 23:43:49 2010 +0800

    let's not enable HTTP put now. will do it later

diff --git a/lib/Plient/Protocol/HTTP.pm b/lib/Plient/Protocol/HTTP.pm
index ba8ba33..25b6f89 100644
--- a/lib/Plient/Protocol/HTTP.pm
+++ b/lib/Plient/Protocol/HTTP.pm
@@ -6,7 +6,7 @@ use Carp;
 use base 'Plient::Protocol';
 
 sub prefix { 'http' }
-sub methods { qw/get post head put/ }
+sub methods { qw/get post head/ }
 
 1;
 

commit 633881c6e96f0c32b68d6bf61d77d30913b6df50
Author: sunnavy <sunnavy at bestpractical.com>
Date:   Fri Apr 23 23:49:19 2010 +0800

    make plackup time flexible

diff --git a/lib/Plient/Test.pm b/lib/Plient/Test.pm
index 504924d..ecf2293 100644
--- a/lib/Plient/Test.pm
+++ b/lib/Plient/Test.pm
@@ -21,7 +21,8 @@ sub start_http_server {
     my $pid = fork;
     if ( defined $pid ) {
         if ($pid) {
-            usleep 300_000; # give plackup sometime to run ;)
+            # have you ever been annoied that "sleep 1" is too much?
+            usleep 1_000_000 * ( $ENV{PLIENT_TEST_PLACKUP_TIME} || 1 );
             push @pids, $pid;
             return "http://localhost:$port";
         }

commit a65da20fe56d0b4c4bbf4832cd93a3c00e92ce00
Author: sunnavy <sunnavy at bestpractical.com>
Date:   Sat Apr 24 07:24:46 2010 +0800

    precedence fix

diff --git a/lib/Plient/Protocol/File.pm b/lib/Plient/Protocol/File.pm
index 67ffb9f..0eb82c2 100644
--- a/lib/Plient/Protocol/File.pm
+++ b/lib/Plient/Protocol/File.pm
@@ -11,7 +11,7 @@ sub methods { qw/get/ }
 sub get {
     my ( $file, $args ) = @_;
     $file =~ s!file:(?://)?!!; # file:foo/bar is valid too
-    open my $fh, '<', $file or warn "failed to open $file: $!" && return;
+    open my $fh, '<', $file or warn "failed to open $file: $!" and return;
     local $/;
     <$fh>;
 }

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