| Subject: | Patch: Silence some warnings from POE |
This patch silences some warnings when running under "make test".
| Subject: | 0001-Silence-a-warning-when-running-under-perl-w.patch |
From 30d5b5a6e8463b5066164c2ad1550e7d893e75be Mon Sep 17 00:00:00 2001
From: =?utf-8?q?Hinrik=20=C3=96rn=20Sigur=C3=B0sson?= <hinrik.sig@gmail.com>
Date: Sun, 13 Dec 2009 04:37:26 +0000
Subject: [PATCH] Silence a warning when running under "perl -w"
POE spews a bunch of warnings upon $kernel->alias_resolve(undef)
---
lib/POE/Component/CPANPLUS/YACSmoke.pm | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/lib/POE/Component/CPANPLUS/YACSmoke.pm b/lib/POE/Component/CPANPLUS/YACSmoke.pm
index 2f2f927..970d0e7 100644
--- a/lib/POE/Component/CPANPLUS/YACSmoke.pm
+++ b/lib/POE/Component/CPANPLUS/YACSmoke.pm
@@ -165,7 +165,7 @@ sub _command {
$args->{lc $_} = delete $args->{$_} for grep { $_ !~ /^_/ } keys %{ $args };
- my $ref = $kernel->alias_resolve( $args->{session} ) || $sender;
+ my $ref = $args->{session} ? $kernel->alias_resolve( $args->{session} ) : $sender;
$args->{session} = $ref->ID();
if ( !$args->{module} and $state !~ /^(recent|check|indices|package|author|flush)$/i ) {
--
1.6.3.3