Fix bug when passing args to 'cmd_extract'.

diff --git a/bin/cil b/bin/cil
index d5a0af1437d55d4431a668a261062f27a5c83098..9a829fd34f9580fafbe7ede1bdfca67f098815c3 100755 (executable)
--- a/bin/cil
+++ b/bin/cil
@@ -42,7 +42,7 @@ my @IN_OPTS = (
     'p=s',          # p = path
     'path>p',       # for 'add'
     'f=s',          # f = filename
-    'filename=f',   # for 'extract'
+    'filename>f',   # for 'extract'
 
     'help',
     'version',
@@ -347,7 +347,7 @@ EOF
 }
 
 sub cmd_extract {
-    my ($cil, undef, $attachment_name, $args) = @_;
+    my ($cil, $args, $attachment_name) = @_;
 
     my $attachment = CIL::Attachment->new_from_name($cil, $attachment_name);
     unless ( defined $attachment ) {