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 /lib/Net/Hawk/Client.pm | |
| 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 ~=
Diffstat (limited to 'lib/Net/Hawk/Client.pm')
| -rw-r--r-- | lib/Net/Hawk/Client.pm | 4 |
1 files changed, 2 insertions, 2 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>); } } |