From be77144081e8367848fd48880b86a4dde73f7869 Mon Sep 17 00:00:00 2001
From: =?utf8?q?J=C3=A9r=C3=B4me=20Quelin?= <jquelin@gmail.com>
Date: Mon, 19 Jan 2009 18:12:55 +0100
Subject: [PATCH] spawning app::cpan2pkg session

---
 lib/App/CPAN2Pkg.pm        | 4 ++--
 lib/App/CPAN2Pkg/Curses.pm | 4 +++-
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/lib/App/CPAN2Pkg.pm b/lib/App/CPAN2Pkg.pm
index 3a84444..b79f823 100644
--- a/lib/App/CPAN2Pkg.pm
+++ b/lib/App/CPAN2Pkg.pm
@@ -17,14 +17,14 @@ use POE;
 our $VERSION = '0.0.1';
 
 sub spawn {
-    my ($class, %opts) = @_;
+    my ($class, $opts) = @_;
 
     my $session = POE::Session->create(
         inline_states => {
             _start => \&_start,
             _stop  => sub { warn "stop"; },
         },
-        args => \%opts,
+        args => $opts,
     );
     return $session->ID;
 }
diff --git a/lib/App/CPAN2Pkg/Curses.pm b/lib/App/CPAN2Pkg/Curses.pm
index 818c398..6b1527a 100644
--- a/lib/App/CPAN2Pkg/Curses.pm
+++ b/lib/App/CPAN2Pkg/Curses.pm
@@ -20,7 +20,9 @@ use base qw{ Curses::UI::POE };
 # CONSTRUCTOR
 
 sub spawn {
-    my ($class, %opts) = @_;
+    my ($class, $opts) = @_;
+
+    App::CPAN2Pkg->spawn($opts);
 
     my $cui = $class->new(
         -color_support => 1,
-- 
2.11.4.GIT