From 6bebc71f824d1878c1dfe74501438e969aa0dd87 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Tue, 30 Dec 2014 09:57:59 +0000
Subject: in p6 .= is spelled ~=

---
 lib/Net/Hawk/Client.pm | 4 ++--
 lib/Net/Hawk/Crypto.pm | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/Net/Hawk/Client.pm b/lib/Net/Hawk/Client.pm
index ee80d57..288252c 100644
--- a/lib/Net/Hawk/Client.pm
+++ b/lib/Net/Hawk/Client.pm
@@ -69,9 +69,9 @@ package Net::Hawk::Client {
         ~ sprintf(', mac="%s"',$mac);
 
         if (%artifacts<app>) {
-            $header .= sprintf(', app="%s"', %artifacts<app>);
+            $header ~= sprintf(', app="%s"', %artifacts<app>);
             if (%artifacts<dlg>) {
-                $header .= sprintf(', dlg="%s"',%artifacts<dlg>);
+                $header ~= sprintf(', dlg="%s"',%artifacts<dlg>);
             }
         }
 
diff --git a/lib/Net/Hawk/Crypto.pm b/lib/Net/Hawk/Crypto.pm
index 240a6f7..f69c78e 100644
--- a/lib/Net/Hawk/Crypto.pm
+++ b/lib/Net/Hawk/Crypto.pm
@@ -40,7 +40,7 @@ package Net::Hawk::Crypto {
       );
 
       if ($app) {
-          $normalized .= sprintf(
+          $normalized ~= sprintf(
               "%s\n%s\n",
               $app,
               $dlg // '',
-- 
cgit v1.2.3