make warning go away on legacy Perl versions

mojolicious · Nov 5, 2011 · a4644d3 · a4644d3
1 parent c699fcf
commit a4644d3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/Mojo/Transaction/WebSocket.pm b/lib/Mojo/Transaction/WebSocket.pm
@@ -314,7 +314,7 @@ sub server_write {
   return $write;
 }
 
-sub _challenge { b64_encode(sha1_bytes(pop . GUID), '') }
+sub _challenge { b64_encode(sha1_bytes(pop() . GUID), '') }
 
 sub _xor_mask {
   my ($input, $mask) = @_;