diff options
| author | dakkar <dakkar@thenautilus.net> | 2014-12-30 09:57:59 +0000 |
|---|---|---|
| committer | dakkar <dakkar@thenautilus.net> | 2014-12-30 09:57:59 +0000 |
| commit | 6bebc71f824d1878c1dfe74501438e969aa0dd87 (patch) | |
| tree | f87adc6cce4d9e6e69cb7b3d259e6ae5b20b6ed1 | |
| parent | slightly less awkward try/CATCH (diff) | |
| download | net-hawk-6bebc71f824d1878c1dfe74501438e969aa0dd87.tar.gz net-hawk-6bebc71f824d1878c1dfe74501438e969aa0dd87.tar.bz2 net-hawk-6bebc71f824d1878c1dfe74501438e969aa0dd87.zip | |
in p6 .= is spelled ~=
| -rw-r--r-- | lib/Net/Hawk/Client.pm | 4 | ||||
| -rw-r--r-- | 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 // '', |