From 1e6179ff7b4724c5d907f9f922e8b9767c3f6b56 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Sun, 9 Sep 2012 14:28:49 +0200 Subject: Prompt.pm: Fix a syntax error --- lib/Fripost/Prompt.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lib/Fripost') diff --git a/lib/Fripost/Prompt.pm b/lib/Fripost/Prompt.pm index fbd39e6..50d2d51 100755 --- a/lib/Fripost/Prompt.pm +++ b/lib/Fripost/Prompt.pm @@ -67,8 +67,8 @@ sub prompt_if_undefined { my $rewrite; if (defined $must and $#$must >= 1 and $must->[0] eq 'rewrite') { - shift $must; - $rewrite = shift $must; + shift @$must; + $rewrite = shift @$must; } else { $rewrite //= sub { $_ }; -- cgit v1.2.3