From eb96c07d19153db2ed4c1316dc1ca3dea4d3a04f Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 24 Jun 2010 14:45:04 -0700
Subject: [PATCH] No need for a ref HASH check.

---
 lib/WebGUI/Shop/Pay.pm  | 3 ---
 lib/WebGUI/Shop/Ship.pm | 3 ---
 2 files changed, 6 deletions(-)

diff --git a/lib/WebGUI/Shop/Pay.pm b/lib/WebGUI/Shop/Pay.pm
index 6f4e66147..66ff94588 100644
--- a/lib/WebGUI/Shop/Pay.pm
+++ b/lib/WebGUI/Shop/Pay.pm
@@ -64,9 +64,6 @@ around BUILDARGS => sub {
     my $className  = shift;
 
     ##Original arguments start here.
-    if (ref $_[0] eq 'HASH') {
-        return $className->$orig(@_);
-    }
     my $protoSession = $_[0];
     if (blessed $protoSession && $protoSession->isa('WebGUI::Session')) {
         return $className->$orig(session => $protoSession);
diff --git a/lib/WebGUI/Shop/Ship.pm b/lib/WebGUI/Shop/Ship.pm
index c0f298117..db79b1074 100644
--- a/lib/WebGUI/Shop/Ship.pm
+++ b/lib/WebGUI/Shop/Ship.pm
@@ -39,9 +39,6 @@ around BUILDARGS => sub {
     my $className  = shift;
 
     ##Original arguments start here.
-    if (ref $_[0] eq 'HASH') {
-        return $className->$orig(@_);
-    }
     my $protoSession = $_[0];
     if (blessed $protoSession && $protoSession->isa('WebGUI::Session')) {
         return $className->$orig(session => $protoSession);