aboutsummaryrefslogtreecommitdiff
path: root/lib/Net/Hawk
diff options
context:
space:
mode:
authordakkar <dakkar@thenautilus.net>2014-12-30 09:57:59 +0000
committerdakkar <dakkar@thenautilus.net>2014-12-30 09:57:59 +0000
commit6bebc71f824d1878c1dfe74501438e969aa0dd87 (patch)
treef87adc6cce4d9e6e69cb7b3d259e6ae5b20b6ed1 /lib/Net/Hawk
parentslightly less awkward try/CATCH (diff)
downloadnet-hawk-6bebc71f824d1878c1dfe74501438e969aa0dd87.tar.gz
net-hawk-6bebc71f824d1878c1dfe74501438e969aa0dd87.tar.bz2
net-hawk-6bebc71f824d1878c1dfe74501438e969aa0dd87.zip
in p6 .= is spelled ~=
Diffstat (limited to 'lib/Net/Hawk')
-rw-r--r--lib/Net/Hawk/Client.pm4
-rw-r--r--lib/Net/Hawk/Crypto.pm2
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 // '',