diff options
-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 // '', |