[carton] 13/472: some backward compat for older Getopt::Long

[Lucas Kanashiro]

This is an automated email from the git hooks/post-receive script.

kanashiro-guest pushed a commit to branch master
in repository carton.

commit ee18bbb4884de1223e9b0a370071e90d842b1c00
Author: Tatsuhiko Miyagawa <miyagawa at bulknews.net>
Date:   Fri Jun 24 19:08:56 2011 -0700

    some backward compat for older Getopt::Long
---
 lib/App/Carton.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/App/Carton.pm b/lib/App/Carton.pm
index cb7796a..f0d3231 100644
--- a/lib/App/Carton.pm
+++ b/lib/App/Carton.pm
@@ -52,8 +52,8 @@ sub run {
 }
 
 sub parse_options {
-    my($self, @opts) = @_;
-    Getopt::Long::GetOptionsFromArray(@opts);
+    my($self, $args, @spec) = @_;
+    Getopt::Long::GetOptionsFromArray($args, @spec);
 }
 
 sub print {

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/carton.git