[Jifty-commit] r4417 - in jifty/trunk: lib/Jifty/Test/WWW

[jifty-commit at lists.jifty.org]

Author: jesse
Date: Sun Nov 11 00:48:05 2007
New Revision: 4417

Modified:
   jifty/trunk/   (props changed)
   jifty/trunk/lib/Jifty/Test/WWW/Mechanize.pm

Log:
 r71639 at pinglin:  jesse | 2007-11-11 00:46:59 -0500
 * Fix compatibility with Test::WWW::Mechanize


Modified: jifty/trunk/lib/Jifty/Test/WWW/Mechanize.pm
==============================================================================
--- jifty/trunk/lib/Jifty/Test/WWW/Mechanize.pm	(original)
+++ jifty/trunk/lib/Jifty/Test/WWW/Mechanize.pm	Sun Nov 11 00:48:05 2007
@@ -416,8 +416,11 @@
     # Remove reason from end if it's there
     pop @_ if @_ % 2;
 
-    carp("Couldn't find link") unless
-      $self->follow_link(@_);
+    # Test::WWW::Mechanize allows passing in a hashref of arguments, so we should to
+    if  ( ref($_[0]) eq 'HASH') {
+        @_ = %{$_[0]};
+    }
+    carp("Couldn't find link") unless $self->follow_link(@_);
     {
         local $Test::Builder::Level = $Test::Builder::Level;
         $Test::Builder::Level++;