From: Andrew Chilton <andychilton@gmail.com>
Date: Mon, 23 Jun 2008 11:29:44 +0000 (+1200)
Subject: Fix bug when passing args to 'cmd_extract'.
X-Git-Url: http://git.mjollnir.org/gw?a=commitdiff_plain;h=6424e2cf7ddbd34f6bbf6b94c3489d6909c183c3;p=cil.git

Fix bug when passing args to 'cmd_extract'.
---

diff --git a/bin/cil b/bin/cil
index d5a0af1..9a829fd 100755
--- 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 ) {