r74947 - in /branches/upstream/libpoe-api-peek-perl/current: LICENSE META.yml Makefile.PL README dist.ini lib/POE/API/Peek.pm t/02-alias.t
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Mon May 30 18:16:54 UTC 2011
Author: gregoa
Date: Mon May 30 18:16:45 2011
New Revision: 74947
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=74947
Log:
[svn-upgrade] new version libpoe-api-peek-perl (2.1700)
Modified:
branches/upstream/libpoe-api-peek-perl/current/LICENSE
branches/upstream/libpoe-api-peek-perl/current/META.yml
branches/upstream/libpoe-api-peek-perl/current/Makefile.PL
branches/upstream/libpoe-api-peek-perl/current/README
branches/upstream/libpoe-api-peek-perl/current/dist.ini
branches/upstream/libpoe-api-peek-perl/current/lib/POE/API/Peek.pm
branches/upstream/libpoe-api-peek-perl/current/t/02-alias.t
Modified: branches/upstream/libpoe-api-peek-perl/current/LICENSE
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-api-peek-perl/current/LICENSE?rev=74947&op=diff
==============================================================================
--- branches/upstream/libpoe-api-peek-perl/current/LICENSE (original)
+++ branches/upstream/libpoe-api-peek-perl/current/LICENSE Mon May 30 18:16:45 2011
@@ -1,4 +1,4 @@
-This software is Copyright (c) 2010 by Matt Cashner (sungo).
+This software is Copyright (c) 2011 by Matt Cashner (sungo).
This is free software, licensed under:
Modified: branches/upstream/libpoe-api-peek-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-api-peek-perl/current/META.yml?rev=74947&op=diff
==============================================================================
--- branches/upstream/libpoe-api-peek-perl/current/META.yml (original)
+++ branches/upstream/libpoe-api-peek-perl/current/META.yml Mon May 30 18:16:45 2011
@@ -3,6 +3,7 @@
author:
- 'sungo <sungo at sungo.us>'
- 'Yuval Kogman <nothingmuch at woobling.org>'
+ - "Chris 'BinGOs' Williams <bingos at cpan.org>"
build_requires: {}
configure_requires:
ExtUtils::MakeMaker: 6.31
@@ -15,6 +16,6 @@
name: POE-API-Peek
requires:
Devel::Size: 0
- POE: 1.293
+ POE: 1.311
Test::More: 0
-version: 2.16
+version: 2.17
Modified: branches/upstream/libpoe-api-peek-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-api-peek-perl/current/Makefile.PL?rev=74947&op=diff
==============================================================================
--- branches/upstream/libpoe-api-peek-perl/current/Makefile.PL (original)
+++ branches/upstream/libpoe-api-peek-perl/current/Makefile.PL Mon May 30 18:16:45 2011
@@ -10,7 +10,7 @@
my %WriteMakefileArgs = (
'ABSTRACT' => 'Peek into the internals of a running POE environment',
- 'AUTHOR' => 'sungo <sungo at sungo.us>, Yuval Kogman <nothingmuch at woobling.org>',
+ 'AUTHOR' => 'sungo <sungo at sungo.us>, Yuval Kogman <nothingmuch at woobling.org>, Chris \'BinGOs\' Williams <bingos at cpan.org>',
'BUILD_REQUIRES' => {},
'CONFIGURE_REQUIRES' => {
'ExtUtils::MakeMaker' => '6.31'
@@ -21,10 +21,10 @@
'NAME' => 'POE::API::Peek',
'PREREQ_PM' => {
'Devel::Size' => '0',
- 'POE' => '1.293',
+ 'POE' => '1.311',
'Test::More' => '0'
},
- 'VERSION' => '2.16',
+ 'VERSION' => '2.17',
'test' => {
'TESTS' => 't/*.t'
}
Modified: branches/upstream/libpoe-api-peek-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-api-peek-perl/current/README?rev=74947&op=diff
==============================================================================
--- branches/upstream/libpoe-api-peek-perl/current/README (original)
+++ branches/upstream/libpoe-api-peek-perl/current/README Mon May 30 18:16:45 2011
@@ -2,7 +2,7 @@
POE::API::Peek - Peek into the internals of a running POE environment
VERSION
- version 2.16
+ version 2.17
DESCRIPTION
POE::API::Peek extends the POE::Kernel interface to provide clean access
@@ -345,10 +345,11 @@
to the currently active session. Returns a boolean.
AUTHORS
- sungo <sungo at sungo.us> Yuval Kogman <nothingmuch at woobling.org>
+ sungo <sungo at sungo.us> Yuval Kogman <nothingmuch at woobling.org> Chris
+ 'BinGOs' Williams <bingos at cpan.org>
COPYRIGHT AND LICENSE
- This software is Copyright (c) 2010 by Matt Cashner (sungo).
+ This software is Copyright (c) 2011 by Matt Cashner (sungo).
This is free software, licensed under:
Modified: branches/upstream/libpoe-api-peek-perl/current/dist.ini
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-api-peek-perl/current/dist.ini?rev=74947&op=diff
==============================================================================
--- branches/upstream/libpoe-api-peek-perl/current/dist.ini (original)
+++ branches/upstream/libpoe-api-peek-perl/current/dist.ini Mon May 30 18:16:45 2011
@@ -1,6 +1,7 @@
name = POE-API-Peek
author = sungo <sungo at sungo.us>
author = Yuval Kogman <nothingmuch at woobling.org>
+author = Chris 'BinGOs' Williams <bingos at cpan.org>
license = BSD
copyright_holder = Matt Cashner (sungo)
@@ -13,7 +14,7 @@
[Prereq]
-POE = 1.293
+POE = 1.311
Devel::Size = 0
Test::More = 0
Modified: branches/upstream/libpoe-api-peek-perl/current/lib/POE/API/Peek.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-api-peek-perl/current/lib/POE/API/Peek.pm?rev=74947&op=diff
==============================================================================
--- branches/upstream/libpoe-api-peek-perl/current/lib/POE/API/Peek.pm (original)
+++ branches/upstream/libpoe-api-peek-perl/current/lib/POE/API/Peek.pm Mon May 30 18:16:45 2011
@@ -1,6 +1,6 @@
package POE::API::Peek;
BEGIN {
- $POE::API::Peek::VERSION = '2.16';
+ $POE::API::Peek::VERSION = '2.17';
}
# ABSTRACT: Peek into the internals of a running POE environment
@@ -133,7 +133,7 @@
sub get_session_children {
my $self = shift;
my $session = shift || $self->current_session();
- return $poe_kernel->_data_ses_get_children($session);
+ return $poe_kernel->_data_ses_get_children($session->ID);
}
# }}}
@@ -144,7 +144,7 @@
my $self = shift;
my $parent = shift or return undef;
my $session = shift || $self->current_session();
- return $poe_kernel->_data_ses_is_child($parent, $session);
+ return $poe_kernel->_data_ses_is_child($parent->ID, $session->ID);
}
# }}}
@@ -154,7 +154,7 @@
sub get_session_parent {
my $self = shift;
my $session = shift || $self->current_session();
- return $poe_kernel->_data_ses_get_parent($session);
+ return $poe_kernel->_data_ses_get_parent($session->ID);
}
# }}}
@@ -185,7 +185,7 @@
sub get_session_refcount {
my $self = shift;
my $session = shift || $self->current_session();
- return $poe_kernel->_data_ses_refcount($session);
+ return $poe_kernel->_data_ses_refcount($session->ID);
}
# }}}
@@ -258,7 +258,7 @@
sub session_alias_list {
my $self = shift;
my $session = shift || $self->current_session();
- return $poe_kernel->_data_alias_list($session);
+ return $poe_kernel->_data_alias_list($session->ID);
}
# }}}
@@ -268,7 +268,7 @@
sub session_alias_count {
my $self = shift;
my $session = shift || $self->current_session();
- return $poe_kernel->_data_alias_count_ses($session);
+ return $poe_kernel->_data_alias_count_ses($session->ID);
}
# }}}
@@ -278,7 +278,7 @@
sub session_id_loggable {
my $self = shift;
my $session = shift || $self->current_session();
- return $poe_kernel->_data_alias_loggable($session);
+ return $poe_kernel->_data_alias_loggable($session->ID);
}
# }}}
@@ -471,7 +471,7 @@
sub signals_watched_by_session {
my $self = shift;
my $session = shift || $self->current_session();
- my %sigs = $poe_kernel->_data_sig_watched_by_session($session);
+ my %sigs = $poe_kernel->_data_sig_watched_by_session($session->ID);
my %ret;
foreach my $k (keys %sigs) {
@@ -494,7 +494,7 @@
my %ret;
foreach my $k (keys %sigs) {
my $ev = $sigs{$k}[0];
- $ret{$k} = $ev;
+ $ret{$poe_kernel->alias_resolve($k)} = $ev;
}
return %ret;
@@ -508,7 +508,7 @@
my $self = shift;
my $signal = shift or return undef;
my $session = shift || $self->current_session();
- return $poe_kernel->_data_sig_is_watched_by_session($signal, $session);
+ return $poe_kernel->_data_sig_is_watched_by_session($signal, $session->ID);
}
# }}}
@@ -526,7 +526,7 @@
=head1 VERSION
-version 2.16
+version 2.17
=head1 DESCRIPTION
@@ -1131,10 +1131,11 @@
sungo <sungo at sungo.us>
Yuval Kogman <nothingmuch at woobling.org>
+Chris 'BinGOs' Williams <bingos at cpan.org>
=head1 COPYRIGHT AND LICENSE
-This software is Copyright (c) 2010 by Matt Cashner (sungo).
+This software is Copyright (c) 2011 by Matt Cashner (sungo).
This is free software, licensed under:
Modified: branches/upstream/libpoe-api-peek-perl/current/t/02-alias.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-api-peek-perl/current/t/02-alias.t?rev=74947&op=diff
==============================================================================
--- branches/upstream/libpoe-api-peek-perl/current/t/02-alias.t (original)
+++ branches/upstream/libpoe-api-peek-perl/current/t/02-alias.t Mon May 30 18:16:45 2011
@@ -30,18 +30,20 @@
my $api = $_[HEAP]->{api};
my $cur_sess;
+ my $sid = $sess->ID;
+
# session_id_loggable {{{
my $log_id;
eval { $log_id = $api->session_id_loggable() };
ok(!$@, "session_id_loggable() causes no exceptions");
- like($log_id, qr/session 2 \(POE::Session/, "session_id_loggable() returns proper string when no alias");
+ like($log_id, qr/session $sid/, "session_id_loggable() returns proper string when no alias");
$_[KERNEL]->alias_set('PIE');
$log_id = undef;
eval { $log_id = $api->session_id_loggable() };
ok(!$@, "session_id_loggable() causes no exceptions");
- like($log_id, qr/session 2 \(PIE/, "session_id_loggable() returns proper string when alias is set");
+ like($log_id, qr/session $sid \(PIE/, "session_id_loggable() returns proper string when alias is set");
# }}}
More information about the Pkg-perl-cvs-commits
mailing list