get rid of warning on older versions of Perl

mojolicious · May 31, 2014 · 3f63548 · 3f63548
1 parent 8184c8f
commit 3f63548
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/Mojo/Log.pm b/lib/Mojo/Log.pm
@@ -64,7 +64,7 @@ sub new {
 sub warn { shift->log(warn => @_) }
 
 sub _format {
-  '[' . localtime(shift) . '] [' . shift . '] ' . join("\n", @_, '');
+  '[' . localtime(shift) . '] [' . shift() . '] ' . join("\n", @_, '');
 }
 
 sub _message {