From 471b9ce4fa7fca6491ccd3e1557637f09827f7ab Mon Sep 17 00:00:00 2001
From: Stefan Kangas <skangas@skangas.se>
Date: Tue, 5 Jun 2012 05:30:42 +0200
Subject: Fix a warning when searching with no query string specified

---
 lib/Fripost/Commands/alias_search.pm | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'lib')

diff --git a/lib/Fripost/Commands/alias_search.pm b/lib/Fripost/Commands/alias_search.pm
index 6e638ac..01aed7f 100644
--- a/lib/Fripost/Commands/alias_search.pm
+++ b/lib/Fripost/Commands/alias_search.pm
@@ -29,10 +29,8 @@ sub perform_search {
 }
 
 sub main {
-    my $ldap = shift;
-    my $conf = shift;
-
-    my $search = $_[0];
+    my ($ldap, $conf, $search) = @_;
+    $search //= '';
 
     my $f = $conf->{from};
     my $g = $conf->{goto};
-- 
cgit v1.2.3