diff options
author | Stefan Kangas <skangas@skangas.se> | 2012-09-09 14:28:49 +0200 |
---|---|---|
committer | Stefan Kangas <skangas@skangas.se> | 2012-09-09 14:28:49 +0200 |
commit | 1e6179ff7b4724c5d907f9f922e8b9767c3f6b56 (patch) | |
tree | df6673ce9c11ac05079e821df80b5ac7f6338fbf | |
parent | cee7d3e7a13ef25fc9da0e2dce07d95587b202da (diff) |
Prompt.pm: Fix a syntax error
-rwxr-xr-x | lib/Fripost/Prompt.pm | 4 |
1 files changed, 2 insertions, 2 deletions
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 { $_ }; |