From fb758e7d3056263966a7c02b8fd86ee6629f1244 Mon Sep 17 00:00:00 2001 From: Nicolas Vigier Date: Thu, 13 Jun 2013 12:44:46 +0000 Subject: Remove %usage --- mgaadv | 35 +++++++++++++++++++---------------- 1 file changed, 19 insertions(+), 16 deletions(-) (limited to 'mgaadv') diff --git a/mgaadv b/mgaadv index 99371e9..40a5742 100755 --- a/mgaadv +++ b/mgaadv @@ -5,33 +5,36 @@ use MGA::Advisories; use Template; my %actions = ( - mksite => \&mksite, - new => \&newadv, - usage => \&usage, -); - -my %usage = ( - mksite => < { + run => \&mksite, + usage => < < < { + run => \&newadv, + usage => < { + run => \&usage, + usage => <{usage}; } else { print STDERR "$0 [action] [options]\n"; print STDERR "$0 usage [action]\n\n"; @@ -68,5 +71,5 @@ sub newadv { if (@ARGV == 0 || !$actions{$ARGV[0]}) { usageexit(); } -$actions{$ARGV[0]}->(@ARGV); +$actions{$ARGV[0]}->{run}->(@ARGV); -- cgit v1.2.1