From 1e6179ff7b4724c5d907f9f922e8b9767c3f6b56 Mon Sep 17 00:00:00 2001
From: Stefan Kangas <skangas@skangas.se>
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(-)

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