Update of /cvsroot/fink/dists/10.4/unstable/main/finkinfo/libs/perlmods
In directory vz-cvs-3.sog:/tmp/cvs-serv24390

Modified Files:
        poe-component-irc-pm.info 
Added Files:
        poe-component-irc-pm.patch 
Log Message:
new version


--- NEW FILE: poe-component-irc-pm.patch ---
diff -Nurd -x'*~' POE-Component-IRC-6.70.orig/lib/POE/Component/IRC/State.pm 
POE-Component-IRC-6.70/lib/POE/Component/IRC/State.pm
--- POE-Component-IRC-6.70.orig/lib/POE/Component/IRC/State.pm  2011-08-01 
23:39:06.000000000 -0400
+++ POE-Component-IRC-6.70/lib/POE/Component/IRC/State.pm       2011-09-08 
13:05:59.000000000 -0400
@@ -469,7 +469,7 @@
         }
 
         my $unick    = uc_irc($nick, $map);
-        $status      = '' if !length $status;
+        $status      = '' if !defined $status;
         my $whatever = '';
         my $existing = $self->{STATE}{Nicks}{$unick}{CHANS}{$uchan} || '';
 
diff -Nurd -x'*~' 
POE-Component-IRC-6.70.orig/t/03_subclasses/06_state_nick_sync.t 
POE-Component-IRC-6.70/t/03_subclasses/06_state_nick_sync.t
--- POE-Component-IRC-6.70.orig/t/03_subclasses/06_state_nick_sync.t    
2011-08-01 23:39:06.000000000 -0400
+++ POE-Component-IRC-6.70/t/03_subclasses/06_state_nick_sync.t 2011-09-08 
13:07:42.000000000 -0400
@@ -98,11 +98,9 @@
         $bot2->yield(join => "#testchannel");
     }
 
-
     if ($irc == $bot2 && keys %{ $bot2->channels } == 1) {
         is($irc->nick_info($bot1->nick_name()), undef,
             $bot2->nick_name()." doesn't know about ".$bot1->nick_name." yet");
-        $bot2->yield(join => "#testchannel2");
     }
 }
 
@@ -126,6 +124,7 @@
         $heap->{nick_sync}++;
         if ($heap->{nick_sync} == 1) {
             is($chan, '#testchannel', 'Channel from irc_nick_sync is correct');
+            $bot2->yield(join => "#testchannel2");
         }
         if ($heap->{nick_sync} == 2) {
             is($chan, '#testchannel2', 'Channel from irc_nick_sync is 
correct');

Index: poe-component-irc-pm.info
===================================================================
RCS file: 
/cvsroot/fink/dists/10.4/unstable/main/finkinfo/libs/perlmods/poe-component-irc-pm.info,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- poe-component-irc-pm.info   21 Jul 2011 21:28:59 -0000      1.5
+++ poe-component-irc-pm.info   8 Sep 2011 17:50:49 -0000       1.6
@@ -1,6 +1,6 @@
 Info2: <<
 Package: poe-component-irc-pm%type_pkg[perl]
-Version: 6.59
+Version: 6.70
 Revision: 1
 Distribution: (%type_pkg[perl] = 5100) 10.5, (%type_pkg[perl] = 5100) 10.6, 
(%type_pkg[perl] = 5123) 10.7, (%type_pkg[perl] = 588) 10.4, (%type_pkg[perl] = 
588) 10.5, (%type_pkg[perl] = 588) 10.6
 Type: perl (5.8.8 5.10.0 5.12.3)
@@ -10,17 +10,22 @@
 Maintainer: Daniel Macks <dma...@netspace.org>
 Homepage: http://search.cpan.org/dist/POE-Component-IRC/
 
+BuildDepends: fink (>= 0.24.12)
 Depends: <<
        encode-pm%type_pkg[perl],
-       object-pluggable-pm%type_pkg[perl],
+       irc-utils-pm,
        perl%type_pkg[perl]-core,
        poe-component-client-dns-pm%type_pkg[perl],
        poe-component-pluggable-pm%type_pkg[perl] (>= 1.26-1),
+       poe-component-syndicator-pm%type_pkg[perl],
        poe-filter-ircd-pm%type_pkg[perl],
-       poe-pm%type_pkg[perl]
+       poe-pm%type_pkg[perl] (>= 1.311-1)
 <<
 Source: mirror:cpan:authors/id/H/HI/HINRIK/POE-Component-IRC-%v.tar.gz
-Source-MD5: fdff57679a7aafaf2f6577c23996a53e
+Source-MD5: d0d4732e2c8c7bbe961aa2ba2b533e84
+
+PatchFile: %{ni}.patch
+PatchFile-MD5: a18c7d25df11a96d52c924dc2c87b475
 
 ConfigureParams: --skip
 
@@ -38,4 +43,11 @@
 first sentence was a bit too much, go read the POE documentation over
 and over until it makes some sense.
 <<
+DescPort: <<
+       Upstream fix for uninitialized-value warning. See:
+       https://rt.cpan.org/Public/Bug/Display.html?id=70605
+
+       Upstream fix for self-test failure. See:
+       https://rt.cpan.org/Public/Bug/Display.html?id=70744
+<<
 <<


------------------------------------------------------------------------------
Doing More with Less: The Next Generation Virtual Desktop 
What are the key obstacles that have prevented many mid-market businesses
from deploying virtual desktops?   How do next-generation virtual desktops
provide companies an easier-to-deploy, easier-to-manage and more affordable
virtual desktop model.http://www.accelacomm.com/jaw/sfnl/114/51426474/
_______________________________________________
Fink-commits mailing list
Fink-commits@lists.sourceforge.net
http://news.gmane.org/gmane.os.apple.fink.cvs

Reply via email to