/usr/share/perl5/POE/Component/IKC/Protocol.pm is in libpoe-component-ikc-perl 0.2302-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 | package POE::Component::IKC::Protocol;
############################################################
# $Id$
# Copyright 2011 Philip Gwyn. All rights reserved.
# This program is free software; you can redistribute it and/or modify
# it under the same terms as Perl itself.
#
# Contributed portions of IKC may be copyright by their respective
# contributors.
use strict;
use Socket;
sub __build_setup
{
my( $aliases, $freezers ) = @_;
return 'SETUP '.join ';', 'KERNEL='.join( ',', @$aliases ),
'FREEZER='.join( ',', @$freezers );
}
sub __neg_setup
{
my( $setup ) = @_;
my( @kernel, @freezer, $bad );
foreach my $bit ( split ';', $1 ) {
if( $bit =~ m/KERNEL=(.+)/ ) {
@kernel = split ',', $1;
}
elsif( $bit =~ m/FREEZER=(.+)/ ) {
@freezer = split ',', $1;
}
else {
warn "Server sent unknown setup '$bit' during negociation\n";
$bad++;
}
}
unless( @kernel ) {
warn "Server didn't send KERNEL in $setup\n";
$bad++;
}
return \@kernel, \@freezer, $bad;
}
1;
|