From 11fb116d5946b2ecfb37be74d0aea7ad7189b275 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 13:18:32 +0800
Subject: Shipmode parts need to be saved into an array before shift

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

diff --git a/config/pikul_order.tag b/config/pikul_order.tag
index 6fe34b4..074cc07 100644
--- a/config/pikul_order.tag
+++ b/config/pikul_order.tag
@@ -8,7 +8,8 @@ sub {
 		FROM transactions WHERE code='$order_number'",
 		wantarray => 1
 	})->[0]};
-	my ($table, $service) = split(/_/, shift @{split(/ /, $shipmode)});
+	my @parts = split(/ /, $shipmode, 2);
+	my ($table, $service) = split(/_/, shift @parts);
 	my ($company, @provisions, $origin);
 	if (substr($table, 0, 8) eq 'anteraja') {
 		$company = $::Variable->{PIKUL_ANTERAJA};
-- 
cgit v1.2.3