From 13bd5e437dc28a57ada71ed263a3a9334531f122 Mon Sep 17 00:00:00 2001
From: =?utf8?q?J=C3=A9r=C3=B4me=20Quelin?= <jquelin@gmail.com>
Date: Fri, 6 Feb 2009 10:51:13 +0100
Subject: [PATCH] renamed event install_status to local_status

---
 lib/App/CPAN2Pkg.pm        | 6 +++---
 lib/App/CPAN2Pkg/Module.pm | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/lib/App/CPAN2Pkg.pm b/lib/App/CPAN2Pkg.pm
index b5a5968..da36ced 100644
--- a/lib/App/CPAN2Pkg.pm
+++ b/lib/App/CPAN2Pkg.pm
@@ -41,7 +41,7 @@ sub spawn {
         inline_states => {
             # public events
             upstream_status      => \&upstream_status,
-            install_status       => \&install_status,
+            local_status         => \&local_status,
             module_spawned       => \&module_spawned,
             package              => \&package,
             prereqs              => \&prereqs,
@@ -82,7 +82,7 @@ sub spawn {
 
 # -- public events
 
-sub install_status {
+sub local_status {
     my ($k, $h, $module, $is_installed) = @_[KERNEL, HEAP, ARG0, ARG1];
 
     if ( not $is_installed ) {
@@ -236,7 +236,7 @@ A list of modules to start packaging.
 The following events are the module's API.
 
 
-=head2 install_status( $module, $is_installed )
+=head2 local_status( $module, $is_installed )
 
 Sent when C<$module> knows whether it is installed locally (C<$is_installed>
 set to true) or not.
diff --git a/lib/App/CPAN2Pkg/Module.pm b/lib/App/CPAN2Pkg/Module.pm
index dfc4344..edb7e2c 100644
--- a/lib/App/CPAN2Pkg/Module.pm
+++ b/lib/App/CPAN2Pkg/Module.pm
@@ -202,7 +202,7 @@ sub is_installed {
     my $is_installed = $@ eq '';
     my $status = $is_installed ? 'installed' : 'not installed';
     $self->_log_result("$name is $status locally.");
-    $k->post('app', 'install_status', $self, $is_installed);
+    $k->post('app', 'local_status', $self, $is_installed);
 }
 
 # -- private events
-- 
2.11.4.GIT