From a391dff2fd6ee3300bc0b3f05a4e78d885625365 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=EA=A6=8C=EA=A6=AB=EA=A6=B6=EA=A6=8F=EA=A7=80=EA=A6=A6?=
 =?UTF-8?q?=EA=A6=BF=EA=A6=A7=EA=A6=AE=EA=A6=91=EA=A6=A9=EA=A6=AD=EA=A7=80?=
 <erik@darapsa.co.id>
Date: Sat, 17 Jul 2021 11:01:05 +0800
Subject: So the argument to shift is an array

---
 config/pikul_order.tag | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'config')

diff --git a/config/pikul_order.tag b/config/pikul_order.tag
index 062d5ac..f3de13d 100644
--- a/config/pikul_order.tag
+++ b/config/pikul_order.tag
@@ -1,5 +1,7 @@
+=pod
 UserTag pikul_order Order order_number insurance
 UserTag pikul_order Routine <<EOR
+=cut
 sub {
 	my ($order_number, $insurance) = @_;
 	my ($shipmode, $nitems, $subtotal, $fname, $lname, $address1, $address2, $city, $state, $phone_day)
@@ -8,7 +10,7 @@ sub {
 		FROM transactions WHERE code='$order_number'",
 		wantarray => 1
 	})->[0]};
-	my ($table, $service) = split(/_/, shift split(/ /, $shipmode));
+	my ($table, $service) = split(/_/, shift @{split(/ /, $shipmode)});
 	my ($company, @provisions, $origin);
 	if (substr($table, 0, 8) eq 'anteraja') {
 		$company = $::Variable->{PIKUL_ANTERAJA};
-- 
cgit v1.2.3