From 4a3d6de5fa445615f65aa41b19ada27f5b58ad6f Mon Sep 17 00:00:00 2001
From: Andrew Chilton <andychilton@gmail.com>
Date: Mon, 23 Jun 2008 23:29:44 +1200
Subject: Fix bug when passing args to 'cmd_extract'.

---
 bin/cil | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/bin/cil b/bin/cil
index 0d55f66..08968dd 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 ) {
-- 
cgit v1.2.3