main::CODE(0x1a5963c)(ext\IO\t\io_sock.t:3): 3: use Config; main::CODE(0x1a5963c)(ext\IO\t\io_sock.t:3): 3: use Config; main::CODE(0x1a5963c)(ext\IO\t\io_sock.t:3): 3: use Config; Config::import(lib/Config.pm:29): my $pkg = shift; Config::import(lib/Config.pm:30): @_ = @Config::EXPORT unless @_; Config::import(lib/Config.pm:32): my @funcs = grep $_ ne '%Config', @_; Config::import(lib/Config.pm:33): my $export_Config = @funcs < @_ ? 1 : 0; Config::import(lib/Config.pm:36): my $callpkg = caller(0); Config::import(lib/Config.pm:37): foreach my $func (@funcs) { Config::import(lib/Config.pm:43): *{"$callpkg\::Config"} = \%Config if $export_Config; Config::import(lib/Config.pm:43): *{"$callpkg\::Config"} = \%Config if $export_Config; Config::import(lib/Config.pm:44): return; main::CODE(0x1a596ac)(ext\IO\t\io_sock.t:6): 6: my $can_fork = $Config{d_fork} || 7: (($^O eq 'MSWin32' || $^O eq 'NetWare') and 8: $Config{useithreads} and 9: $Config{ccflags} =~ /-DPERL_IMPLICIT_SYS/ 10: ); Config::FETCH(lib/Config.pm:56): my($self, $key) = @_; Config::FETCH(lib/Config.pm:59): return $self->{$key} if exists $self->{$key}; Config::FETCH(lib/Config.pm:61): return $self->fetch_string($key); Config::fetch_string(lib/Config_heavy.pl:1169): 1169: my($self, $key) = @_; Config::fetch_string(lib/Config_heavy.pl:1171): 1171: my $quote_type = "'"; Config::fetch_string(lib/Config_heavy.pl:1172): 1172: my $marker = "$key="; Config::fetch_string(lib/Config_heavy.pl:1175): 1175: my $start = index($Config_SH_expanded, "\n$marker$quote_type"); Config::fetch_string(lib/Config_heavy.pl:1177): 1177: if ($start == -1) { Config::fetch_string(lib/Config_heavy.pl:1183): 1183: return undef if $start == -1; Config::fetch_string(lib/Config_heavy.pl:1185): 1185: $start += length($key) + 3; Config::fetch_string(lib/Config_heavy.pl:1187): 1187: my $value = substr($Config_SH_expanded, $start, 1188: index($Config_SH_expanded, "$quote_type\n", $start) 1189: - $start); Config::fetch_string(lib/Config_heavy.pl:1195): 1195: if ($quote_type eq '"') { Config::fetch_string(lib/Config_heavy.pl:1201): 1201: $value = undef if $value eq 'undef'; Config::fetch_string(lib/Config_heavy.pl:1202): 1202: $self->{$key} = $value; # cache it Config::FETCH(lib/Config.pm:56): my($self, $key) = @_; Config::FETCH(lib/Config.pm:59): return $self->{$key} if exists $self->{$key}; Config::FETCH(lib/Config.pm:56): my($self, $key) = @_; Config::FETCH(lib/Config.pm:59): return $self->{$key} if exists $self->{$key}; Config::FETCH(lib/Config.pm:61): return $self->fetch_string($key); Config::fetch_string(lib/Config_heavy.pl:1169): 1169: my($self, $key) = @_; Config::fetch_string(lib/Config_heavy.pl:1171): 1171: my $quote_type = "'"; Config::fetch_string(lib/Config_heavy.pl:1172): 1172: my $marker = "$key="; Config::fetch_string(lib/Config_heavy.pl:1175): 1175: my $start = index($Config_SH_expanded, "\n$marker$quote_type"); Config::fetch_string(lib/Config_heavy.pl:1177): 1177: if ($start == -1) { Config::fetch_string(lib/Config_heavy.pl:1183): 1183: return undef if $start == -1; Config::fetch_string(lib/Config_heavy.pl:1185): 1185: $start += length($key) + 3; Config::fetch_string(lib/Config_heavy.pl:1187): 1187: my $value = substr($Config_SH_expanded, $start, 1188: index($Config_SH_expanded, "$quote_type\n", $start) 1189: - $start); Config::fetch_string(lib/Config_heavy.pl:1195): 1195: if ($quote_type eq '"') { Config::fetch_string(lib/Config_heavy.pl:1201): 1201: $value = undef if $value eq 'undef'; Config::fetch_string(lib/Config_heavy.pl:1202): 1202: $self->{$key} = $value; # cache it main::CODE(0x1a596ac)(ext\IO\t\io_sock.t:11): 11: my $reason; main::CODE(0x1a596ac)(ext\IO\t\io_sock.t:12): 12: if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bSocket\b/) { main::CODE(0x1a596ac)(ext\IO\t\io_sock.t:21): 21: if ($reason) { main::CODE(0x1b39a7c)(ext\IO\t\io_sock.t:37): 37: use IO::Socket; IO::Socket::CODE(0x1b3943c)(lib/IO/Socket.pm:11): 11: use IO::Handle; IO::Socket::CODE(0x1b3943c)(lib/IO/Socket.pm:11): 11: use IO::Handle; IO::Socket::CODE(0x1b3943c)(lib/IO/Socket.pm:11): 11: use IO::Handle; Exporter::import(lib/Exporter.pm:29): 29: my $pkg = shift; Exporter::import(lib/Exporter.pm:30): 30: my $callpkg = caller($ExportLevel); Exporter::import(lib/Exporter.pm:32): 32: if ($pkg eq "Exporter" and @_ and $_[0] eq "import") { Exporter::import(lib/Exporter.pm:38): 38: my($exports, $fail) = (\@{"$pkg\::EXPORT"}, \@{"$pkg\::EXPORT_FAIL"}); Exporter::import(lib/Exporter.pm:38): 38: my($exports, $fail) = (\@{"$pkg\::EXPORT"}, \@{"$pkg\::EXPORT_FAIL"}); Exporter::import(lib/Exporter.pm:38): 38: my($exports, $fail) = (\@{"$pkg\::EXPORT"}, \@{"$pkg\::EXPORT_FAIL"}); Exporter::import(lib/Exporter.pm:39): 39: return export $pkg, $callpkg, @_ 40: if $Verbose or $Debug or @$fail > 1; Exporter::import(lib/Exporter.pm:41): 41: my $export_cache = ($Cache{$pkg} ||= {}); Exporter::import(lib/Exporter.pm:42): 42: my $args = @_ or @_ = @$exports; Exporter::import(lib/Exporter.pm:44): 44: local $_; Exporter::import(lib/Exporter.pm:45): 45: if ($args and not %$export_cache) { Exporter::import(lib/Exporter.pm:49): 49: my $heavy; Exporter::import(lib/Exporter.pm:52): 52: if ($args or $fail) { 53: ($heavy = (/\W/ or $args and not exists $export_cache->{$_} 54: or @$fail and $_ eq $fail->[0])) and last Exporter::import(lib/Exporter.pm:55): 55: foreach (@_); Exporter::import(lib/Exporter.pm:55): 55: foreach (@_); Exporter::import(lib/Exporter.pm:60): 60: return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy; Exporter::import(lib/Exporter.pm:62): 62: sub {require Carp; &Carp::carp}; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; IO::Socket::CODE(0x1b3940c)(lib/IO/Socket.pm:12): 12: use Socket 1.3; Socket::CODE(0x1b2a874)(lib/Socket.pm:193): 193: use Carp; Socket::CODE(0x1b2a874)(lib/Socket.pm:193): 193: use Carp; Socket::CODE(0x1b2a874)(lib/Socket.pm:193): 193: use Carp; Exporter::import(lib/Exporter.pm:29): 29: my $pkg = shift; Exporter::import(lib/Exporter.pm:30): 30: my $callpkg = caller($ExportLevel); Exporter::import(lib/Exporter.pm:32): 32: if ($pkg eq "Exporter" and @_ and $_[0] eq "import") { Exporter::import(lib/Exporter.pm:38): 38: my($exports, $fail) = (\@{"$pkg\::EXPORT"}, \@{"$pkg\::EXPORT_FAIL"}); Exporter::import(lib/Exporter.pm:38): 38: my($exports, $fail) = (\@{"$pkg\::EXPORT"}, \@{"$pkg\::EXPORT_FAIL"}); Exporter::import(lib/Exporter.pm:38): 38: my($exports, $fail) = (\@{"$pkg\::EXPORT"}, \@{"$pkg\::EXPORT_FAIL"}); Exporter::import(lib/Exporter.pm:39): 39: return export $pkg, $callpkg, @_ 40: if $Verbose or $Debug or @$fail > 1; Exporter::import(lib/Exporter.pm:41): 41: my $export_cache = ($Cache{$pkg} ||= {}); Exporter::import(lib/Exporter.pm:42): 42: my $args = @_ or @_ = @$exports; Exporter::import(lib/Exporter.pm:44): 44: local $_; Exporter::import(lib/Exporter.pm:45): 45: if ($args and not %$export_cache) { Exporter::import(lib/Exporter.pm:49): 49: my $heavy; Exporter::import(lib/Exporter.pm:52): 52: if ($args or $fail) { 53: ($heavy = (/\W/ or $args and not exists $export_cache->{$_} 54: or @$fail and $_ eq $fail->[0])) and last Exporter::import(lib/Exporter.pm:55): 55: foreach (@_); Exporter::import(lib/Exporter.pm:55): 55: foreach (@_); Exporter::import(lib/Exporter.pm:60): 60: return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy; Exporter::import(lib/Exporter.pm:62): 62: sub {require Carp; &Carp::carp}; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Socket::CODE(0x1b2a844)(lib/Socket.pm:194): 194: use warnings::register; warnings::register::CODE(0x1b2a844)(lib/warnings/register.pm:3): 3: our $VERSION = '1.01'; warnings::register::CODE(0x1b2a844)(lib/warnings/register.pm:24): 24: require warnings; warnings::register::CODE(0x1b2a844)(lib/warnings/register.pm:51): 51: 1; Socket::CODE(0x1b2a844)(lib/Socket.pm:194): 194: use warnings::register; Socket::CODE(0x1b2a844)(lib/Socket.pm:194): 194: use warnings::register; warnings::register::import(lib/warnings/register.pm:37): 37: shift; warnings::register::import(lib/warnings/register.pm:38): 38: my $package = (caller(0))[0]; warnings::register::import(lib/warnings/register.pm:39): 39: if (! defined $warnings::Bits{$package}) { warnings::register::import(lib/warnings/register.pm:40): 40: $warnings::Bits{$package} = mkMask($warnings::LAST_BIT); warnings::register::mkMask(lib/warnings/register.pm:28): 28: my ($bit) = @_; warnings::register::mkMask(lib/warnings/register.pm:29): 29: my $mask = ""; warnings::register::mkMask(lib/warnings/register.pm:31): 31: vec($mask, $bit, 1) = 1; warnings::register::mkMask(lib/warnings/register.pm:32): 32: return $mask; warnings::register::import(lib/warnings/register.pm:41): 41: vec($warnings::Bits{'all'}, $warnings::LAST_BIT, 1) = 1; warnings::register::import(lib/warnings/register.pm:42): 42: $warnings::Offsets{$package} = $warnings::LAST_BIT ++; warnings::register::import(lib/warnings/register.pm:43): 43: foreach my $k (keys %warnings::Bits) { warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:46): 46: $warnings::DeadBits{$package} = mkMask($warnings::LAST_BIT); warnings::register::mkMask(lib/warnings/register.pm:28): 28: my ($bit) = @_; warnings::register::mkMask(lib/warnings/register.pm:29): 29: my $mask = ""; warnings::register::mkMask(lib/warnings/register.pm:31): 31: vec($mask, $bit, 1) = 1; warnings::register::mkMask(lib/warnings/register.pm:32): 32: return $mask; warnings::register::import(lib/warnings/register.pm:47): 47: vec($warnings::DeadBits{'all'}, $warnings::LAST_BIT++, 1) = 1; Socket::CODE(0x1b2a754)(lib/Socket.pm:197): 197: use XSLoader (); Socket::CODE(0x1b2a754)(lib/Socket.pm:197): 197: use XSLoader (); Socket::CODE(0x1b2a754)(lib/Socket.pm:197): 197: use XSLoader (); Socket::CODE(0x1cfe93c)(lib/Socket.pm:381): 381: BEGIN { Socket::CODE(0x1b3940c)(lib/Socket.pm:3): 3: our($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS); Socket::CODE(0x1b3940c)(lib/Socket.pm:4): 4: $VERSION = "1.84"; Socket::CODE(0x1b3940c)(lib/Socket.pm:196): 196: require Exporter; Socket::CODE(0x1b3940c)(lib/Socket.pm:198): 198: @ISA = qw(Exporter); Socket::CODE(0x1b3940c)(lib/Socket.pm:199): 199: @EXPORT = qw( 200: inet_aton inet_ntoa 201: inet_pton inet_ntop 202: sockaddr_family 203: pack_sockaddr_in unpack_sockaddr_in 204: pack_sockaddr_un unpack_sockaddr_un 205: sockaddr_in sockaddr_un 206: INADDR_ANY INADDR_BROADCAST INADDR_LOOPBACK INADDR_NONE 207: AF_802 208: AF_AAL 209: AF_APPLETALK 210: AF_CCITT 211: AF_CHAOS 212: AF_CTF 213: AF_DATAKIT 214: AF_DECnet 215: AF_DLI 216: AF_ECMA 217: AF_GOSIP 218: AF_HYLINK 219: AF_IMPLINK 220: AF_INET 221: AF_INET6 222: AF_ISO 223: AF_KEY 224: AF_LAST 225: AF_LAT 226: AF_LINK 227: AF_MAX 228: AF_NBS 229: AF_NIT 230: AF_NS 231: AF_OSI 232: AF_OSINET 233: AF_PUP 234: AF_ROUTE 235: AF_SNA 236: AF_UNIX 237: AF_UNSPEC 238: AF_USER 239: AF_WAN 240: AF_X25 241: IOV_MAX 242: IP_OPTIONS 243: IP_HDRINCL 244: IP_TOS 245: IP_TTL 246: IP_RECVOPTS 247: IP_RECVRETOPTS 248: IP_RETOPTS 249: MSG_BCAST 250: MSG_BTAG 251: MSG_CTLFLAGS 252: MSG_CTLIGNORE 253: MSG_CTRUNC 254: MSG_DONTROUTE 255: MSG_DONTWAIT 256: MSG_EOF 257: MSG_EOR 258: MSG_ERRQUEUE 259: MSG_ETAG 260: MSG_FIN 261: MSG_MAXIOVLEN 262: MSG_MCAST 263: MSG_NOSIGNAL 264: MSG_OOB 265: MSG_PEEK 266: MSG_PROXY 267: MSG_RST 268: MSG_SYN 269: MSG_TRUNC 270: MSG_URG 271: MSG_WAITALL 272: MSG_WIRE 273: PF_802 274: PF_AAL 275: PF_APPLETALK 276: PF_CCITT 277: PF_CHAOS 278: PF_CTF 279: PF_DATAKIT 280: PF_DECnet 281: PF_DLI 282: PF_ECMA 283: PF_GOSIP 284: PF_HYLINK 285: PF_IMPLINK 286: PF_INET 287: PF_INET6 288: PF_ISO 289: PF_KEY 290: PF_LAST 291: PF_LAT 292: PF_LINK 293: PF_MAX 294: PF_NBS 295: PF_NIT 296: PF_NS 297: PF_OSI 298: PF_OSINET 299: PF_PUP 300: PF_ROUTE 301: PF_SNA 302: PF_UNIX 303: PF_UNSPEC 304: PF_USER 305: PF_WAN 306: PF_X25 307: SCM_CONNECT 308: SCM_CREDENTIALS 309: SCM_CREDS 310: SCM_RIGHTS 311: SCM_TIMESTAMP 312: SHUT_RD 313: SHUT_RDWR 314: SHUT_WR 315: SOCK_DGRAM 316: SOCK_RAW 317: SOCK_RDM 318: SOCK_SEQPACKET 319: SOCK_STREAM 320: SOL_SOCKET 321: SOMAXCONN 322: SO_ACCEPTCONN 323: SO_ATTACH_FILTER 324: SO_BACKLOG 325: SO_BROADCAST 326: SO_CHAMELEON 327: SO_DEBUG 328: SO_DETACH_FILTER 329: SO_DGRAM_ERRIND 330: SO_DONTLINGER 331: SO_DONTROUTE 332: SO_ERROR 333: SO_FAMILY 334: SO_KEEPALIVE 335: SO_LINGER 336: SO_OOBINLINE 337: SO_PASSCRED 338: SO_PASSIFNAME 339: SO_PEERCRED 340: SO_PROTOCOL 341: SO_PROTOTYPE 342: SO_RCVBUF 343: SO_RCVLOWAT 344: SO_RCVTIMEO 345: SO_REUSEADDR 346: SO_REUSEPORT 347: SO_SECURITY_AUTHENTICATION 348: SO_SECURITY_ENCRYPTION_NETWORK 349: SO_SECURITY_ENCRYPTION_TRANSPORT 350: SO_SNDBUF 351: SO_SNDLOWAT 352: SO_SNDTIMEO 353: SO_STATE 354: SO_TYPE 355: SO_USELOOPBACK 356: SO_XOPEN 357: SO_XSE 358: UIO_MAXIOV 359: ); Socket::CODE(0x1b3940c)(lib/Socket.pm:361): 361: @EXPORT_OK = qw(CR LF CRLF $CR $LF $CRLF Socket::CODE(0x1b3940c)(lib/Socket.pm:376): 376: %EXPORT_TAGS = ( 377: crlf => [qw(CR LF CRLF $CR $LF $CRLF)], 378: all => [@EXPORT, @EXPORT_OK], 379: ); Socket::CODE(0x1b3940c)(lib/Socket.pm:387): 387: *CR = \CR(); Socket::CODE(0x1b3940c)(lib/Socket.pm:388): 388: *LF = \LF(); Socket::CODE(0x1b3940c)(lib/Socket.pm:389): 389: *CRLF = \CRLF(); Socket::CODE(0x1b3940c)(lib/Socket.pm:428): 428: XSLoader::load 'Socket', $VERSION; XSLoader::load(lib/XSLoader.pm:25): 25: die q{XSLoader::load('Your::Module', $Your::Module::VERSION)} unless @_; XSLoader::load(lib/XSLoader.pm:27): 27: my($module) = $_[0]; XSLoader::load(lib/XSLoader.pm:30): 30: my $boots = "$module\::bootstrap"; XSLoader::load(lib/XSLoader.pm:31): 31: goto &$boots if defined &$boots; XSLoader::load(lib/XSLoader.pm:33): 33: goto retry unless $module and defined &dl_load_file; XSLoader::load(lib/XSLoader.pm:35): 35: my @modparts = split(/::/,$module); XSLoader::load(lib/XSLoader.pm:36): 36: my $modfname = $modparts[-1]; XSLoader::load(lib/XSLoader.pm:38): 38: my $modpname = join('/',@modparts); XSLoader::load(lib/XSLoader.pm:39): 39: my $modlibname = (caller())[1]; XSLoader::load(lib/XSLoader.pm:40): 40: my $c = @modparts; XSLoader::load(lib/XSLoader.pm:41): 41: $modlibname =~ s,[\\/][^\\/]+$,, while $c--; # Q&D basename XSLoader::load(lib/XSLoader.pm:42): 42: my $file = "$modlibname/auto/$modpname/$modfname.$dl_dlext"; XSLoader::load(lib/XSLoader.pm:46): 46: my $bs = $file; XSLoader::load(lib/XSLoader.pm:47): 47: $bs =~ s/(\.\w+)?(;\d*)?$/\.bs/; # look for .bs 'beside' the library XSLoader::load(lib/XSLoader.pm:49): 49: if (-s $bs) { # only read file if it's not empty XSLoader::load(lib/XSLoader.pm:55): 55: goto retry if not -f $file or -s $bs; XSLoader::load(lib/XSLoader.pm:57): 57: my $bootname = "boot_$module"; XSLoader::load(lib/XSLoader.pm:58): 58: $bootname =~ s/\W/_/g; XSLoader::load(lib/XSLoader.pm:59): 59: @DynaLoader::dl_require_symbols = ($bootname); XSLoader::load(lib/XSLoader.pm:61): 61: my $boot_symbol_ref; XSLoader::load(lib/XSLoader.pm:70): 70: my $libref = dl_load_file($file, 0) or do { XSLoader::load(lib/XSLoader.pm:74): 74: push(@DynaLoader::dl_librefs,$libref); # record loaded object XSLoader::load(lib/XSLoader.pm:76): 76: my @unresolved = dl_undef_symbols(); XSLoader::load(lib/XSLoader.pm:77): 77: if (@unresolved) { XSLoader::load(lib/XSLoader.pm:82): 82: $boot_symbol_ref = dl_find_symbol($libref, $bootname) or do { XSLoader::load(lib/XSLoader.pm:87): 87: push(@DynaLoader::dl_modules, $module); # record loaded module XSLoader::load(lib/XSLoader.pm:89): 89: boot: 90: my $xs = dl_install_xsub($boots, $boot_symbol_ref, $file); XSLoader::load(lib/XSLoader.pm:93): 93: push(@DynaLoader::dl_shared_objects, $file); # record files loaded XSLoader::load(lib/XSLoader.pm:94): 94: return &$xs(@_); Socket::CODE(0x1b3940c)(lib/Socket.pm:430): 430: 1; IO::Socket::CODE(0x1b3940c)(lib/IO/Socket.pm:12): 12: use Socket 1.3; IO::Socket::CODE(0x1b3940c)(lib/IO/Socket.pm:12): 12: use Socket 1.3; Exporter::import(lib/Exporter.pm:29): 29: my $pkg = shift; Exporter::import(lib/Exporter.pm:30): 30: my $callpkg = caller($ExportLevel); Exporter::import(lib/Exporter.pm:32): 32: if ($pkg eq "Exporter" and @_ and $_[0] eq "import") { Exporter::import(lib/Exporter.pm:38): 38: my($exports, $fail) = (\@{"$pkg\::EXPORT"}, \@{"$pkg\::EXPORT_FAIL"}); Exporter::import(lib/Exporter.pm:38): 38: my($exports, $fail) = (\@{"$pkg\::EXPORT"}, \@{"$pkg\::EXPORT_FAIL"}); Exporter::import(lib/Exporter.pm:38): 38: my($exports, $fail) = (\@{"$pkg\::EXPORT"}, \@{"$pkg\::EXPORT_FAIL"}); Exporter::import(lib/Exporter.pm:39): 39: return export $pkg, $callpkg, @_ 40: if $Verbose or $Debug or @$fail > 1; Exporter::import(lib/Exporter.pm:41): 41: my $export_cache = ($Cache{$pkg} ||= {}); Exporter::import(lib/Exporter.pm:42): 42: my $args = @_ or @_ = @$exports; Exporter::import(lib/Exporter.pm:44): 44: local $_; Exporter::import(lib/Exporter.pm:45): 45: if ($args and not %$export_cache) { Exporter::import(lib/Exporter.pm:49): 49: my $heavy; Exporter::import(lib/Exporter.pm:52): 52: if ($args or $fail) { 53: ($heavy = (/\W/ or $args and not exists $export_cache->{$_} 54: or @$fail and $_ eq $fail->[0])) and last Exporter::import(lib/Exporter.pm:55): 55: foreach (@_); Exporter::import(lib/Exporter.pm:55): 55: foreach (@_); Exporter::import(lib/Exporter.pm:60): 60: return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy; Exporter::import(lib/Exporter.pm:62): 62: sub {require Carp; &Carp::carp}; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; IO::Socket::CODE(0x1b392cc)(lib/IO/Socket.pm:13): 13: use Carp; IO::Socket::CODE(0x1b392cc)(lib/IO/Socket.pm:13): 13: use Carp; IO::Socket::CODE(0x1b392cc)(lib/IO/Socket.pm:13): 13: use Carp; Exporter::import(lib/Exporter.pm:29): 29: my $pkg = shift; Exporter::import(lib/Exporter.pm:30): 30: my $callpkg = caller($ExportLevel); Exporter::import(lib/Exporter.pm:32): 32: if ($pkg eq "Exporter" and @_ and $_[0] eq "import") { Exporter::import(lib/Exporter.pm:38): 38: my($exports, $fail) = (\@{"$pkg\::EXPORT"}, \@{"$pkg\::EXPORT_FAIL"}); Exporter::import(lib/Exporter.pm:38): 38: my($exports, $fail) = (\@{"$pkg\::EXPORT"}, \@{"$pkg\::EXPORT_FAIL"}); Exporter::import(lib/Exporter.pm:38): 38: my($exports, $fail) = (\@{"$pkg\::EXPORT"}, \@{"$pkg\::EXPORT_FAIL"}); Exporter::import(lib/Exporter.pm:39): 39: return export $pkg, $callpkg, @_ 40: if $Verbose or $Debug or @$fail > 1; Exporter::import(lib/Exporter.pm:41): 41: my $export_cache = ($Cache{$pkg} ||= {}); Exporter::import(lib/Exporter.pm:42): 42: my $args = @_ or @_ = @$exports; Exporter::import(lib/Exporter.pm:44): 44: local $_; Exporter::import(lib/Exporter.pm:45): 45: if ($args and not %$export_cache) { Exporter::import(lib/Exporter.pm:49): 49: my $heavy; Exporter::import(lib/Exporter.pm:52): 52: if ($args or $fail) { 53: ($heavy = (/\W/ or $args and not exists $export_cache->{$_} 54: or @$fail and $_ eq $fail->[0])) and last Exporter::import(lib/Exporter.pm:55): 55: foreach (@_); Exporter::import(lib/Exporter.pm:55): 55: foreach (@_); Exporter::import(lib/Exporter.pm:60): 60: return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy; Exporter::import(lib/Exporter.pm:62): 62: sub {require Carp; &Carp::carp}; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; IO::Socket::CODE(0x1cfdd1c)(lib/IO/Socket.pm:14): 14: use strict; IO::Socket::CODE(0x1cfdd1c)(lib/IO/Socket.pm:14): 14: use strict; IO::Socket::CODE(0x1cfdd1c)(lib/IO/Socket.pm:14): 14: use strict; strict::import(lib/strict.pm:35): shift; strict::import(lib/strict.pm:36): $^H |= @_ ? bits(@_) : $default_bits; IO::Socket::CODE(0x1cbe72c)(lib/IO/Socket.pm:16): 16: use Exporter; IO::Socket::CODE(0x1cbe72c)(lib/IO/Socket.pm:16): 16: use Exporter; IO::Socket::CODE(0x1cbe72c)(lib/IO/Socket.pm:16): 16: use Exporter; Exporter::import(lib/Exporter.pm:29): 29: my $pkg = shift; Exporter::import(lib/Exporter.pm:30): 30: my $callpkg = caller($ExportLevel); Exporter::import(lib/Exporter.pm:32): 32: if ($pkg eq "Exporter" and @_ and $_[0] eq "import") { Exporter::import(lib/Exporter.pm:38): 38: my($exports, $fail) = (\@{"$pkg\::EXPORT"}, \@{"$pkg\::EXPORT_FAIL"}); Exporter::import(lib/Exporter.pm:38): 38: my($exports, $fail) = (\@{"$pkg\::EXPORT"}, \@{"$pkg\::EXPORT_FAIL"}); Exporter::import(lib/Exporter.pm:38): 38: my($exports, $fail) = (\@{"$pkg\::EXPORT"}, \@{"$pkg\::EXPORT_FAIL"}); Exporter::import(lib/Exporter.pm:39): 39: return export $pkg, $callpkg, @_ 40: if $Verbose or $Debug or @$fail > 1; Exporter::import(lib/Exporter.pm:41): 41: my $export_cache = ($Cache{$pkg} ||= {}); Exporter::import(lib/Exporter.pm:42): 42: my $args = @_ or @_ = @$exports; Exporter::import(lib/Exporter.pm:44): 44: local $_; Exporter::import(lib/Exporter.pm:45): 45: if ($args and not %$export_cache) { Exporter::import(lib/Exporter.pm:49): 49: my $heavy; Exporter::import(lib/Exporter.pm:52): 52: if ($args or $fail) { 53: ($heavy = (/\W/ or $args and not exists $export_cache->{$_} 54: or @$fail and $_ eq $fail->[0])) and last Exporter::import(lib/Exporter.pm:55): 55: foreach (@_); Exporter::import(lib/Exporter.pm:55): 55: foreach (@_); Exporter::import(lib/Exporter.pm:60): 60: return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy; Exporter::import(lib/Exporter.pm:62): 62: sub {require Carp; &Carp::carp}; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; IO::Socket::CODE(0x1cbe73c)(lib/IO/Socket.pm:17): 17: use Errno; Errno::CODE(0x1b3e184)(lib/Errno.pm:7): 7: use Exporter (); Errno::CODE(0x1b3e184)(lib/Errno.pm:7): 7: use Exporter (); Errno::CODE(0x1b3e184)(lib/Errno.pm:7): 7: use Exporter (); Errno::CODE(0x1b3e1a4)(lib/Errno.pm:8): 8: use Config; Errno::CODE(0x1b3e1a4)(lib/Errno.pm:8): 8: use Config; Errno::CODE(0x1b3e1a4)(lib/Errno.pm:8): 8: use Config; Config::import(lib/Config.pm:29): my $pkg = shift; Config::import(lib/Config.pm:30): @_ = @Config::EXPORT unless @_; Config::import(lib/Config.pm:32): my @funcs = grep $_ ne '%Config', @_; Config::import(lib/Config.pm:33): my $export_Config = @funcs < @_ ? 1 : 0; Config::import(lib/Config.pm:36): my $callpkg = caller(0); Config::import(lib/Config.pm:37): foreach my $func (@funcs) { Config::import(lib/Config.pm:43): *{"$callpkg\::Config"} = \%Config if $export_Config; Config::import(lib/Config.pm:43): *{"$callpkg\::Config"} = \%Config if $export_Config; Config::import(lib/Config.pm:44): return; Errno::CODE(0x1b3e1e4)(lib/Errno.pm:9): 9: use strict; Errno::CODE(0x1b3e1e4)(lib/Errno.pm:9): 9: use strict; Errno::CODE(0x1b3e1e4)(lib/Errno.pm:9): 9: use strict; strict::import(lib/strict.pm:35): shift; strict::import(lib/strict.pm:36): $^H |= @_ ? bits(@_) : $default_bits; Errno::CODE(0x1dad4c4)(lib/Errno.pm:129): 129: no strict 'refs'; Errno::CODE(0x1dad4c4)(lib/Errno.pm:129): 129: no strict 'refs'; Errno::CODE(0x1dad4c4)(lib/Errno.pm:129): 129: no strict 'refs'; strict::unimport(lib/strict.pm:40): 40: shift; strict::unimport(lib/strict.pm:41): 41: $^H &= ~ (@_ ? bits(@_) : $default_bits); strict::bits(lib/strict.pm:19): my $bits = 0; strict::bits(lib/strict.pm:20): my @wrong; strict::bits(lib/strict.pm:21): foreach my $s (@_) { strict::bits(lib/strict.pm:22): push @wrong, $s unless exists $bitmask{$s}; strict::bits(lib/strict.pm:23): $bits |= $bitmask{$s} || 0; strict::bits(lib/strict.pm:25): if (@wrong) { strict::bits(lib/strict.pm:29): $bits; Errno::CODE(0x1cbe73c)(lib/Errno.pm:6): 6: our (@EXPORT_OK,%EXPORT_TAGS,@ISA,$VERSION,%errno,$AUTOLOAD); Errno::CODE(0x1cbe73c)(lib/Errno.pm:11): 11: "$Config{'archname'}-$Config{'osvers'}" eq 12: "MSWin32-x86-multi-thread-5.00" or 13: die "Errno architecture (MSWin32-x86-multi-thread-5.00) does not match executable architecture ($Config{'archname'}-$Config{'osvers'})"; Config::FETCH(lib/Config.pm:56): my($self, $key) = @_; Config::FETCH(lib/Config.pm:59): return $self->{$key} if exists $self->{$key}; Config::FETCH(lib/Config.pm:56): my($self, $key) = @_; Config::FETCH(lib/Config.pm:59): return $self->{$key} if exists $self->{$key}; Errno::CODE(0x1cbe73c)(lib/Errno.pm:15): 15: $VERSION = "1.11"; Errno::CODE(0x1cbe73c)(lib/Errno.pm:16): 16: $VERSION = eval $VERSION; Errno::CODE(0x1cbe73c)((eval 4)[lib/Errno.pm:16]:1): 1: 1.11 Errno::CODE(0x1cbe73c)(lib/Errno.pm:17): 17: @ISA = qw(Exporter); Errno::CODE(0x1cbe73c)(lib/Errno.pm:19): 19: @EXPORT_OK = qw(EROFS ESHUTDOWN EPROTONOSUPPORT ENFILE ENOLCK 20: EADDRINUSE ECONNABORTED EBADF EDEADLK ENOTDIR ENOTTY EINVAL EXDEV 21: ELOOP ECONNREFUSED EISCONN EFBIG ECONNRESET EPFNOSUPPORT ENOENT 22: EDISCON EWOULDBLOCK EDOM EMSGSIZE EDESTADDRREQ ENOTSOCK EIO ENOSPC 23: ENOBUFS EINPROGRESS ERANGE EADDRNOTAVAIL EAFNOSUPPORT ENOSYS EINTR 24: EHOSTDOWN EREMOTE EILSEQ ENOMEM ENOTCONN ENETUNREACH EPIPE ESTALE 25: EDQUOT EUSERS EOPNOTSUPP ESPIPE EALREADY EMFILE ENAMETOOLONG EACCES 26: ENOEXEC EISDIR EPROCLIM EBUSY E2BIG EPERM EEXIST ETOOMANYREFS 27: ESOCKTNOSUPPORT ETIMEDOUT ENXIO ESRCH ENODEV EFAULT EAGAIN EMLINK 28: EDEADLOCK ENOPROTOOPT ECHILD ENETDOWN EHOSTUNREACH EPROTOTYPE 29: ENETRESET ENOTEMPTY); Errno::CODE(0x1cbe73c)(lib/Errno.pm:31): 31: %EXPORT_TAGS = ( 32: POSIX => [qw( 33: E2BIG EACCES EADDRINUSE EADDRNOTAVAIL EAFNOSUPPORT EAGAIN EALREADY 34: EBADF EBUSY ECHILD ECONNABORTED ECONNREFUSED ECONNRESET EDEADLK 35: EDESTADDRREQ EDOM EDQUOT EEXIST EFAULT EFBIG EHOSTDOWN EHOSTUNREACH 36: EINPROGRESS EINTR EINVAL EIO EISCONN EISDIR ELOOP EMFILE EMLINK 37: EMSGSIZE ENAMETOOLONG ENETDOWN ENETRESET ENETUNREACH ENFILE ENOBUFS 38: ENODEV ENOENT ENOEXEC ENOLCK ENOMEM ENOPROTOOPT ENOSPC ENOSYS ENOTCONN 39: ENOTDIR ENOTEMPTY ENOTSOCK ENOTTY ENXIO EOPNOTSUPP EPERM EPFNOSUPPORT 40: EPIPE EPROCLIM EPROTONOSUPPORT EPROTOTYPE ERANGE EREMOTE EROFS 41: ESHUTDOWN ESOCKTNOSUPPORT ESPIPE ESRCH ESTALE ETIMEDOUT ETOOMANYREFS 42: EUSERS EWOULDBLOCK EXDEV 43: )] 44: ); Errno::CODE(0x1cbe73c)(lib/Errno.pm:141): 141: *CLEAR = \&STORE; Errno::CODE(0x1cbe73c)(lib/Errno.pm:142): 142: *DELETE = \&STORE; Errno::CODE(0x1cbe73c)(lib/Errno.pm:165): 165: tie %!, __PACKAGE__; Errno::TIEHASH(lib/Errno.pm:122): sub TIEHASH { bless [] } Errno::CODE(0x1cbe73c)(lib/Errno.pm:167): 167: 1; 168: __END__ IO::Socket::CODE(0x1cbe73c)(lib/IO/Socket.pm:17): 17: use Errno; IO::Socket::CODE(0x1cbe73c)(lib/IO/Socket.pm:17): 17: use Errno; Exporter::import(lib/Exporter.pm:29): 29: my $pkg = shift; Exporter::import(lib/Exporter.pm:30): 30: my $callpkg = caller($ExportLevel); Exporter::import(lib/Exporter.pm:32): 32: if ($pkg eq "Exporter" and @_ and $_[0] eq "import") { Exporter::import(lib/Exporter.pm:38): 38: my($exports, $fail) = (\@{"$pkg\::EXPORT"}, \@{"$pkg\::EXPORT_FAIL"}); Exporter::import(lib/Exporter.pm:38): 38: my($exports, $fail) = (\@{"$pkg\::EXPORT"}, \@{"$pkg\::EXPORT_FAIL"}); Exporter::import(lib/Exporter.pm:38): 38: my($exports, $fail) = (\@{"$pkg\::EXPORT"}, \@{"$pkg\::EXPORT_FAIL"}); Exporter::import(lib/Exporter.pm:39): 39: return export $pkg, $callpkg, @_ 40: if $Verbose or $Debug or @$fail > 1; Exporter::import(lib/Exporter.pm:41): 41: my $export_cache = ($Cache{$pkg} ||= {}); Exporter::import(lib/Exporter.pm:42): 42: my $args = @_ or @_ = @$exports; Exporter::import(lib/Exporter.pm:44): 44: local $_; Exporter::import(lib/Exporter.pm:45): 45: if ($args and not %$export_cache) { Exporter::import(lib/Exporter.pm:49): 49: my $heavy; Exporter::import(lib/Exporter.pm:52): 52: if ($args or $fail) { 53: ($heavy = (/\W/ or $args and not exists $export_cache->{$_} 54: or @$fail and $_ eq $fail->[0])) and last Exporter::import(lib/Exporter.pm:55): 55: foreach (@_); Exporter::import(lib/Exporter.pm:55): 55: foreach (@_); Exporter::import(lib/Exporter.pm:60): 60: return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy; Exporter::import(lib/Exporter.pm:62): 62: sub {require Carp; &Carp::carp}; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; IO::Socket::CODE(0x1b39a7c)(lib/IO/Socket.pm:9): 9: require 5.006; IO::Socket::CODE(0x1b39a7c)(lib/IO/Socket.pm:15): 15: our(@ISA, $VERSION, @EXPORT_OK); IO::Socket::CODE(0x1b39a7c)(lib/IO/Socket.pm:21): 21: require IO::Socket::INET; IO::Socket::INET::CODE(0x1dce5e4)(lib/IO/Socket/INET.pm:9): 9: use strict; IO::Socket::INET::CODE(0x1dce5e4)(lib/IO/Socket/INET.pm:9): 9: use strict; IO::Socket::INET::CODE(0x1dce5e4)(lib/IO/Socket/INET.pm:9): 9: use strict; strict::import(lib/strict.pm:35): shift; strict::import(lib/strict.pm:36): $^H |= @_ ? bits(@_) : $default_bits; IO::Socket::INET::CODE(0x1d43b34)(lib/IO/Socket/INET.pm:11): 11: use IO::Socket; IO::Socket::INET::CODE(0x1d43b34)(lib/IO/Socket/INET.pm:11): 11: use IO::Socket; IO::Socket::INET::CODE(0x1d43b34)(lib/IO/Socket/INET.pm:11): 11: use IO::Socket; IO::Socket::import(lib/IO/Socket.pm:31): 31: my $pkg = shift; IO::Socket::import(lib/IO/Socket.pm:32): 32: if (@_ && $_[0] eq 'sockatmark') { # not very extensible but for now, fast IO::Socket::import(lib/IO/Socket.pm:35): 35: my $callpkg = caller; IO::Socket::import(lib/IO/Socket.pm:36): 36: Exporter::export 'Socket', $callpkg, @_; Exporter::export(lib/Exporter.pm:25): 25: goto &{as_heavy()}; Exporter::export(lib/Exporter.pm:25): 25: goto &{as_heavy()}; Exporter::as_heavy(lib/Exporter.pm:16): 16: require Exporter::Heavy; Exporter::Heavy::CODE(0x1dd99fc)(lib/Exporter/Heavy.pm:3): 3: use strict; Exporter::Heavy::CODE(0x1dd99fc)(lib/Exporter/Heavy.pm:3): 3: use strict; Exporter::Heavy::CODE(0x1dd99fc)(lib/Exporter/Heavy.pm:3): 3: use strict; strict::import(lib/strict.pm:35): shift; strict::import(lib/strict.pm:36): $^H |= @_ ? bits(@_) : $default_bits; Exporter::Heavy::CODE(0x1dd9a1c)(lib/Exporter/Heavy.pm:4): 4: no strict 'refs'; Exporter::Heavy::CODE(0x1dd9a1c)(lib/Exporter/Heavy.pm:4): 4: no strict 'refs'; Exporter::Heavy::CODE(0x1dd9a1c)(lib/Exporter/Heavy.pm:4): 4: no strict 'refs'; strict::unimport(lib/strict.pm:40): 40: shift; strict::unimport(lib/strict.pm:41): 41: $^H &= ~ (@_ ? bits(@_) : $default_bits); strict::bits(lib/strict.pm:19): my $bits = 0; strict::bits(lib/strict.pm:20): my @wrong; strict::bits(lib/strict.pm:21): foreach my $s (@_) { strict::bits(lib/strict.pm:22): push @wrong, $s unless exists $bitmask{$s}; strict::bits(lib/strict.pm:23): $bits |= $bitmask{$s} || 0; strict::bits(lib/strict.pm:25): if (@wrong) { strict::bits(lib/strict.pm:29): $bits; Exporter::Heavy::CODE(0x1de9eac)(lib/Exporter/Heavy.pm:197): 197: no warnings 'once'; Exporter::Heavy::CODE(0x1de9eac)(lib/Exporter/Heavy.pm:197): 197: no warnings 'once'; Exporter::Heavy::CODE(0x1de9eac)(lib/Exporter/Heavy.pm:197): 197: no warnings 'once'; warnings::unimport(lib/warnings.pm:383): 383: shift; warnings::unimport(lib/warnings.pm:385): 385: my $catmask ; warnings::unimport(lib/warnings.pm:386): 386: my $mask = ${^WARNING_BITS} ; warnings::unimport(lib/warnings.pm:388): 388: if (vec($mask, $Offsets{'all'}, 1)) { warnings::unimport(lib/warnings.pm:389): 389: $mask |= $Bits{'all'} ; warnings::unimport(lib/warnings.pm:390): 390: $mask |= $DeadBits{'all'} if vec($mask, $Offsets{'all'}+1, 1); warnings::unimport(lib/warnings.pm:393): 393: push @_, 'all' unless @_; warnings::unimport(lib/warnings.pm:395): 395: foreach my $word ( @_ ) { warnings::unimport(lib/warnings.pm:396): 396: if ($word eq 'FATAL') { warnings::unimport(lib/warnings.pm:400): 400: $mask &= ~($catmask | $DeadBits{$word} | $All); warnings::unimport(lib/warnings.pm:406): 406: ${^WARNING_BITS} = $mask ; Exporter::as_heavy(lib/Exporter/Heavy.pm:7): 7: require Exporter; our $VERSION = $Exporter::VERSION; Exporter::as_heavy(lib/Exporter/Heavy.pm:7): 7: require Exporter; our $VERSION = $Exporter::VERSION; Exporter::as_heavy(lib/Exporter/Heavy.pm:248): 248: 1; Exporter::as_heavy(lib/Exporter.pm:19): 19: my $c = (caller(1))[3]; Exporter::as_heavy(lib/Exporter.pm:20): 20: $c =~ s/.*:://; Exporter::as_heavy(lib/Exporter.pm:21): 21: \&{"Exporter::Heavy::heavy_$c"}; Exporter::as_heavy(lib/Exporter.pm:21): 21: \&{"Exporter::Heavy::heavy_$c"}; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:52): 52: }; 53: local $SIG{__DIE__} = sub { Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:58): 58: }; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:60): 60: my($pkg, $callpkg, @imports) = @_; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:61): 61: my($type, $sym, $cache_is_current, $oops); Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:62): 62: my($exports, $export_cache) = (\@{"${pkg}::EXPORT"}, 63: $Exporter::Cache{$pkg} ||= {}); Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:62): 62: my($exports, $export_cache) = (\@{"${pkg}::EXPORT"}, 63: $Exporter::Cache{$pkg} ||= {}); Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:65): 65: if (@imports) { Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:158): 158: @imports = @$exports; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:161): 161: my($fail, $fail_cache) = (\@{"${pkg}::EXPORT_FAIL"}, 162: $Exporter::FailCache{$pkg} ||= {}); Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:161): 161: my($fail, $fail_cache) = (\@{"${pkg}::EXPORT_FAIL"}, 162: $Exporter::FailCache{$pkg} ||= {}); Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:164): 164: if (@$fail) { Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:189): 189: warn "Importing into $callpkg from $pkg: ", 190: join(", ",sort @imports) if $Exporter::Verbose; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:192): 192: foreach $sym (@imports) { Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; IO::Socket::INET::CODE(0x1d43b44)(lib/IO/Socket/INET.pm:12): 12: use Socket; IO::Socket::INET::CODE(0x1d43b44)(lib/IO/Socket/INET.pm:12): 12: use Socket; IO::Socket::INET::CODE(0x1d43b44)(lib/IO/Socket/INET.pm:12): 12: use Socket; Exporter::import(lib/Exporter.pm:29): 29: my $pkg = shift; Exporter::import(lib/Exporter.pm:30): 30: my $callpkg = caller($ExportLevel); Exporter::import(lib/Exporter.pm:32): 32: if ($pkg eq "Exporter" and @_ and $_[0] eq "import") { Exporter::import(lib/Exporter.pm:38): 38: my($exports, $fail) = (\@{"$pkg\::EXPORT"}, \@{"$pkg\::EXPORT_FAIL"}); Exporter::import(lib/Exporter.pm:38): 38: my($exports, $fail) = (\@{"$pkg\::EXPORT"}, \@{"$pkg\::EXPORT_FAIL"}); Exporter::import(lib/Exporter.pm:38): 38: my($exports, $fail) = (\@{"$pkg\::EXPORT"}, \@{"$pkg\::EXPORT_FAIL"}); Exporter::import(lib/Exporter.pm:39): 39: return export $pkg, $callpkg, @_ 40: if $Verbose or $Debug or @$fail > 1; Exporter::import(lib/Exporter.pm:41): 41: my $export_cache = ($Cache{$pkg} ||= {}); Exporter::import(lib/Exporter.pm:42): 42: my $args = @_ or @_ = @$exports; Exporter::import(lib/Exporter.pm:44): 44: local $_; Exporter::import(lib/Exporter.pm:45): 45: if ($args and not %$export_cache) { Exporter::import(lib/Exporter.pm:49): 49: my $heavy; Exporter::import(lib/Exporter.pm:52): 52: if ($args or $fail) { 53: ($heavy = (/\W/ or $args and not exists $export_cache->{$_} 54: or @$fail and $_ eq $fail->[0])) and last Exporter::import(lib/Exporter.pm:55): 55: foreach (@_); Exporter::import(lib/Exporter.pm:55): 55: foreach (@_); Exporter::import(lib/Exporter.pm:60): 60: return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy; Exporter::import(lib/Exporter.pm:62): 62: sub {require Carp; &Carp::carp}; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; IO::Socket::INET::CODE(0x1d43bb4)(lib/IO/Socket/INET.pm:13): 13: use Carp; IO::Socket::INET::CODE(0x1d43bb4)(lib/IO/Socket/INET.pm:13): 13: use Carp; IO::Socket::INET::CODE(0x1d43bb4)(lib/IO/Socket/INET.pm:13): 13: use Carp; Exporter::import(lib/Exporter.pm:29): 29: my $pkg = shift; Exporter::import(lib/Exporter.pm:30): 30: my $callpkg = caller($ExportLevel); Exporter::import(lib/Exporter.pm:32): 32: if ($pkg eq "Exporter" and @_ and $_[0] eq "import") { Exporter::import(lib/Exporter.pm:38): 38: my($exports, $fail) = (\@{"$pkg\::EXPORT"}, \@{"$pkg\::EXPORT_FAIL"}); Exporter::import(lib/Exporter.pm:38): 38: my($exports, $fail) = (\@{"$pkg\::EXPORT"}, \@{"$pkg\::EXPORT_FAIL"}); Exporter::import(lib/Exporter.pm:38): 38: my($exports, $fail) = (\@{"$pkg\::EXPORT"}, \@{"$pkg\::EXPORT_FAIL"}); Exporter::import(lib/Exporter.pm:39): 39: return export $pkg, $callpkg, @_ 40: if $Verbose or $Debug or @$fail > 1; Exporter::import(lib/Exporter.pm:41): 41: my $export_cache = ($Cache{$pkg} ||= {}); Exporter::import(lib/Exporter.pm:42): 42: my $args = @_ or @_ = @$exports; Exporter::import(lib/Exporter.pm:44): 44: local $_; Exporter::import(lib/Exporter.pm:45): 45: if ($args and not %$export_cache) { Exporter::import(lib/Exporter.pm:49): 49: my $heavy; Exporter::import(lib/Exporter.pm:52): 52: if ($args or $fail) { 53: ($heavy = (/\W/ or $args and not exists $export_cache->{$_} 54: or @$fail and $_ eq $fail->[0])) and last Exporter::import(lib/Exporter.pm:55): 55: foreach (@_); Exporter::import(lib/Exporter.pm:55): 55: foreach (@_); Exporter::import(lib/Exporter.pm:60): 60: return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy; Exporter::import(lib/Exporter.pm:62): 62: sub {require Carp; &Carp::carp}; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; IO::Socket::INET::CODE(0x1ddcae4)(lib/IO/Socket/INET.pm:14): 14: use Exporter; IO::Socket::INET::CODE(0x1ddcae4)(lib/IO/Socket/INET.pm:14): 14: use Exporter; IO::Socket::INET::CODE(0x1ddcae4)(lib/IO/Socket/INET.pm:14): 14: use Exporter; Exporter::import(lib/Exporter.pm:29): 29: my $pkg = shift; Exporter::import(lib/Exporter.pm:30): 30: my $callpkg = caller($ExportLevel); Exporter::import(lib/Exporter.pm:32): 32: if ($pkg eq "Exporter" and @_ and $_[0] eq "import") { Exporter::import(lib/Exporter.pm:38): 38: my($exports, $fail) = (\@{"$pkg\::EXPORT"}, \@{"$pkg\::EXPORT_FAIL"}); Exporter::import(lib/Exporter.pm:38): 38: my($exports, $fail) = (\@{"$pkg\::EXPORT"}, \@{"$pkg\::EXPORT_FAIL"}); Exporter::import(lib/Exporter.pm:38): 38: my($exports, $fail) = (\@{"$pkg\::EXPORT"}, \@{"$pkg\::EXPORT_FAIL"}); Exporter::import(lib/Exporter.pm:39): 39: return export $pkg, $callpkg, @_ 40: if $Verbose or $Debug or @$fail > 1; Exporter::import(lib/Exporter.pm:41): 41: my $export_cache = ($Cache{$pkg} ||= {}); Exporter::import(lib/Exporter.pm:42): 42: my $args = @_ or @_ = @$exports; Exporter::import(lib/Exporter.pm:44): 44: local $_; Exporter::import(lib/Exporter.pm:45): 45: if ($args and not %$export_cache) { Exporter::import(lib/Exporter.pm:49): 49: my $heavy; Exporter::import(lib/Exporter.pm:52): 52: if ($args or $fail) { 53: ($heavy = (/\W/ or $args and not exists $export_cache->{$_} 54: or @$fail and $_ eq $fail->[0])) and last Exporter::import(lib/Exporter.pm:55): 55: foreach (@_); Exporter::import(lib/Exporter.pm:55): 55: foreach (@_); Exporter::import(lib/Exporter.pm:60): 60: return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy; Exporter::import(lib/Exporter.pm:62): 62: sub {require Carp; &Carp::carp}; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; IO::Socket::INET::CODE(0x1ddc404)(lib/IO/Socket/INET.pm:15): 15: use Errno; IO::Socket::INET::CODE(0x1ddc404)(lib/IO/Socket/INET.pm:15): 15: use Errno; IO::Socket::INET::CODE(0x1ddc404)(lib/IO/Socket/INET.pm:15): 15: use Errno; Exporter::import(lib/Exporter.pm:29): 29: my $pkg = shift; Exporter::import(lib/Exporter.pm:30): 30: my $callpkg = caller($ExportLevel); Exporter::import(lib/Exporter.pm:32): 32: if ($pkg eq "Exporter" and @_ and $_[0] eq "import") { Exporter::import(lib/Exporter.pm:38): 38: my($exports, $fail) = (\@{"$pkg\::EXPORT"}, \@{"$pkg\::EXPORT_FAIL"}); Exporter::import(lib/Exporter.pm:38): 38: my($exports, $fail) = (\@{"$pkg\::EXPORT"}, \@{"$pkg\::EXPORT_FAIL"}); Exporter::import(lib/Exporter.pm:38): 38: my($exports, $fail) = (\@{"$pkg\::EXPORT"}, \@{"$pkg\::EXPORT_FAIL"}); Exporter::import(lib/Exporter.pm:39): 39: return export $pkg, $callpkg, @_ 40: if $Verbose or $Debug or @$fail > 1; Exporter::import(lib/Exporter.pm:41): 41: my $export_cache = ($Cache{$pkg} ||= {}); Exporter::import(lib/Exporter.pm:42): 42: my $args = @_ or @_ = @$exports; Exporter::import(lib/Exporter.pm:44): 44: local $_; Exporter::import(lib/Exporter.pm:45): 45: if ($args and not %$export_cache) { Exporter::import(lib/Exporter.pm:49): 49: my $heavy; Exporter::import(lib/Exporter.pm:52): 52: if ($args or $fail) { 53: ($heavy = (/\W/ or $args and not exists $export_cache->{$_} 54: or @$fail and $_ eq $fail->[0])) and last Exporter::import(lib/Exporter.pm:55): 55: foreach (@_); Exporter::import(lib/Exporter.pm:55): 55: foreach (@_); Exporter::import(lib/Exporter.pm:60): 60: return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy; Exporter::import(lib/Exporter.pm:62): 62: sub {require Carp; &Carp::carp}; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; IO::Socket::INET::CODE(0x1b39a7c)(lib/IO/Socket/INET.pm:10): 10: our(@ISA, $VERSION); IO::Socket::INET::CODE(0x1b39a7c)(lib/IO/Socket/INET.pm:17): 17: @ISA = qw(IO::Socket); IO::Socket::INET::CODE(0x1b39a7c)(lib/IO/Socket/INET.pm:18): 18: $VERSION = "1.31"; IO::Socket::INET::CODE(0x1b39a7c)(lib/IO/Socket/INET.pm:20): 20: my $EINVAL = exists(&Errno::EINVAL) ? Errno::EINVAL() : 1; IO::Socket::INET::CODE(0x1b39a7c)(lib/IO/Socket/INET.pm:22): 22: IO::Socket::INET->register_domain( AF_INET ); IO::Socket::register_domain(lib/IO/Socket.pm:55): 55: my($p,$d) = @_; IO::Socket::register_domain(lib/IO/Socket.pm:56): 56: $domain2pkg[$d] = $p; IO::Socket::INET::CODE(0x1b39a7c)(lib/IO/Socket/INET.pm:24): 24: my %socket_type = ( tcp => SOCK_STREAM, 25: udp => SOCK_DGRAM, 26: icmp => SOCK_RAW 27: ); IO::Socket::INET::CODE(0x1b39a7c)(lib/IO/Socket/INET.pm:28): 28: my %proto_number; IO::Socket::INET::CODE(0x1b39a7c)(lib/IO/Socket/INET.pm:29): 29: $proto_number{tcp} = Socket::IPPROTO_TCP() if defined &Socket::IPPROTO_TCP; IO::Socket::INET::CODE(0x1b39a7c)(lib/IO/Socket/INET.pm:30): 30: $proto_number{udp} = Socket::IPPROTO_UDP() if defined &Socket::IPPROTO_UDP; IO::Socket::INET::CODE(0x1b39a7c)(lib/IO/Socket/INET.pm:31): 31: $proto_number{icmp} = Socket::IPPROTO_ICMP() if defined &Socket::IPPROTO_ICMP; IO::Socket::INET::CODE(0x1b39a7c)(lib/IO/Socket/INET.pm:32): 32: my %proto_name = reverse %proto_number; IO::Socket::INET::CODE(0x1b39a7c)(lib/IO/Socket/INET.pm:309): 309: 1; IO::Socket::CODE(0x1b39a7c)(lib/IO/Socket.pm:22): 22: require IO::Socket::UNIX if ($^O ne 'epoc' && $^O ne 'symbian'); IO::Socket::UNIX::CODE(0x1e2883c)(lib/IO/Socket/UNIX.pm:9): 9: use strict; IO::Socket::UNIX::CODE(0x1e2883c)(lib/IO/Socket/UNIX.pm:9): 9: use strict; IO::Socket::UNIX::CODE(0x1e2883c)(lib/IO/Socket/UNIX.pm:9): 9: use strict; strict::import(lib/strict.pm:35): shift; strict::import(lib/strict.pm:36): $^H |= @_ ? bits(@_) : $default_bits; IO::Socket::UNIX::CODE(0x1e2891c)(lib/IO/Socket/UNIX.pm:11): 11: use IO::Socket; IO::Socket::UNIX::CODE(0x1e2891c)(lib/IO/Socket/UNIX.pm:11): 11: use IO::Socket; IO::Socket::UNIX::CODE(0x1e2891c)(lib/IO/Socket/UNIX.pm:11): 11: use IO::Socket; IO::Socket::import(lib/IO/Socket.pm:31): 31: my $pkg = shift; IO::Socket::import(lib/IO/Socket.pm:32): 32: if (@_ && $_[0] eq 'sockatmark') { # not very extensible but for now, fast IO::Socket::import(lib/IO/Socket.pm:35): 35: my $callpkg = caller; IO::Socket::import(lib/IO/Socket.pm:36): 36: Exporter::export 'Socket', $callpkg, @_; Exporter::export(lib/Exporter.pm:25): 25: goto &{as_heavy()}; Exporter::export(lib/Exporter.pm:25): 25: goto &{as_heavy()}; Exporter::as_heavy(lib/Exporter.pm:16): 16: require Exporter::Heavy; Exporter::as_heavy(lib/Exporter.pm:19): 19: my $c = (caller(1))[3]; Exporter::as_heavy(lib/Exporter.pm:20): 20: $c =~ s/.*:://; Exporter::as_heavy(lib/Exporter.pm:21): 21: \&{"Exporter::Heavy::heavy_$c"}; Exporter::as_heavy(lib/Exporter.pm:21): 21: \&{"Exporter::Heavy::heavy_$c"}; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:52): 52: }; 53: local $SIG{__DIE__} = sub { Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:58): 58: }; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:60): 60: my($pkg, $callpkg, @imports) = @_; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:61): 61: my($type, $sym, $cache_is_current, $oops); Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:62): 62: my($exports, $export_cache) = (\@{"${pkg}::EXPORT"}, 63: $Exporter::Cache{$pkg} ||= {}); Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:62): 62: my($exports, $export_cache) = (\@{"${pkg}::EXPORT"}, 63: $Exporter::Cache{$pkg} ||= {}); Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:65): 65: if (@imports) { Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:158): 158: @imports = @$exports; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:161): 161: my($fail, $fail_cache) = (\@{"${pkg}::EXPORT_FAIL"}, 162: $Exporter::FailCache{$pkg} ||= {}); Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:161): 161: my($fail, $fail_cache) = (\@{"${pkg}::EXPORT_FAIL"}, 162: $Exporter::FailCache{$pkg} ||= {}); Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:164): 164: if (@$fail) { Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:189): 189: warn "Importing into $callpkg from $pkg: ", 190: join(", ",sort @imports) if $Exporter::Verbose; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:192): 192: foreach $sym (@imports) { Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; IO::Socket::UNIX::CODE(0x1e2893c)(lib/IO/Socket/UNIX.pm:12): 12: use Carp; IO::Socket::UNIX::CODE(0x1e2893c)(lib/IO/Socket/UNIX.pm:12): 12: use Carp; IO::Socket::UNIX::CODE(0x1e2893c)(lib/IO/Socket/UNIX.pm:12): 12: use Carp; Exporter::import(lib/Exporter.pm:29): 29: my $pkg = shift; Exporter::import(lib/Exporter.pm:30): 30: my $callpkg = caller($ExportLevel); Exporter::import(lib/Exporter.pm:32): 32: if ($pkg eq "Exporter" and @_ and $_[0] eq "import") { Exporter::import(lib/Exporter.pm:38): 38: my($exports, $fail) = (\@{"$pkg\::EXPORT"}, \@{"$pkg\::EXPORT_FAIL"}); Exporter::import(lib/Exporter.pm:38): 38: my($exports, $fail) = (\@{"$pkg\::EXPORT"}, \@{"$pkg\::EXPORT_FAIL"}); Exporter::import(lib/Exporter.pm:38): 38: my($exports, $fail) = (\@{"$pkg\::EXPORT"}, \@{"$pkg\::EXPORT_FAIL"}); Exporter::import(lib/Exporter.pm:39): 39: return export $pkg, $callpkg, @_ 40: if $Verbose or $Debug or @$fail > 1; Exporter::import(lib/Exporter.pm:41): 41: my $export_cache = ($Cache{$pkg} ||= {}); Exporter::import(lib/Exporter.pm:42): 42: my $args = @_ or @_ = @$exports; Exporter::import(lib/Exporter.pm:44): 44: local $_; Exporter::import(lib/Exporter.pm:45): 45: if ($args and not %$export_cache) { Exporter::import(lib/Exporter.pm:49): 49: my $heavy; Exporter::import(lib/Exporter.pm:52): 52: if ($args or $fail) { 53: ($heavy = (/\W/ or $args and not exists $export_cache->{$_} 54: or @$fail and $_ eq $fail->[0])) and last Exporter::import(lib/Exporter.pm:55): 55: foreach (@_); Exporter::import(lib/Exporter.pm:55): 55: foreach (@_); Exporter::import(lib/Exporter.pm:60): 60: return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy; Exporter::import(lib/Exporter.pm:62): 62: sub {require Carp; &Carp::carp}; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(lib/Exporter.pm:64): 64: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; IO::Socket::UNIX::CODE(0x1b39a7c)(lib/IO/Socket/UNIX.pm:10): 10: our(@ISA, $VERSION); IO::Socket::UNIX::CODE(0x1b39a7c)(lib/IO/Socket/UNIX.pm:14): 14: @ISA = qw(IO::Socket); IO::Socket::UNIX::CODE(0x1b39a7c)(lib/IO/Socket/UNIX.pm:15): 15: $VERSION = "1.23"; IO::Socket::UNIX::CODE(0x1b39a7c)(lib/IO/Socket/UNIX.pm:16): 16: $VERSION = eval $VERSION; IO::Socket::UNIX::CODE(0x1b39a7c)((eval 5)[lib/IO/Socket/UNIX.pm:16]:1): 1: 1.23 IO::Socket::UNIX::CODE(0x1b39a7c)(lib/IO/Socket/UNIX.pm:18): 18: IO::Socket::UNIX->register_domain( AF_UNIX ); IO::Socket::register_domain(lib/IO/Socket.pm:55): 55: my($p,$d) = @_; IO::Socket::register_domain(lib/IO/Socket.pm:56): 56: $domain2pkg[$d] = $p; IO::Socket::UNIX::CODE(0x1b39a7c)(lib/IO/Socket/UNIX.pm:65): 65: 1; # Keep require happy IO::Socket::CODE(0x1b39a7c)(lib/IO/Socket.pm:24): 24: @ISA = qw(IO::Handle); IO::Socket::CODE(0x1b39a7c)(lib/IO/Socket.pm:26): 26: $VERSION = "1.31"; IO::Socket::CODE(0x1b39a7c)(lib/IO/Socket.pm:28): 28: @EXPORT_OK = qw(sockatmark); IO::Socket::CODE(0x1b39a7c)(lib/IO/Socket.pm:52): 52: my @domain2pkg; IO::Socket::CODE(0x1b39a7c)(lib/IO/Socket.pm:303): 303: my $intsize = length(pack("i",0)); IO::Socket::CODE(0x1b39a7c)(lib/IO/Socket.pm:355): 355: 1; main::CODE(0x1b39a7c)(ext\IO\t\io_sock.t:37): 37: use IO::Socket; main::CODE(0x1b39a7c)(ext\IO\t\io_sock.t:37): 37: use IO::Socket; IO::Socket::import(lib/IO/Socket.pm:31): 31: my $pkg = shift; IO::Socket::import(lib/IO/Socket.pm:32): 32: if (@_ && $_[0] eq 'sockatmark') { # not very extensible but for now, fast IO::Socket::import(lib/IO/Socket.pm:35): 35: my $callpkg = caller; IO::Socket::import(lib/IO/Socket.pm:36): 36: Exporter::export 'Socket', $callpkg, @_; Exporter::export(lib/Exporter.pm:25): 25: goto &{as_heavy()}; Exporter::export(lib/Exporter.pm:25): 25: goto &{as_heavy()}; Exporter::as_heavy(lib/Exporter.pm:16): 16: require Exporter::Heavy; Exporter::as_heavy(lib/Exporter.pm:19): 19: my $c = (caller(1))[3]; Exporter::as_heavy(lib/Exporter.pm:20): 20: $c =~ s/.*:://; Exporter::as_heavy(lib/Exporter.pm:21): 21: \&{"Exporter::Heavy::heavy_$c"}; Exporter::as_heavy(lib/Exporter.pm:21): 21: \&{"Exporter::Heavy::heavy_$c"}; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:52): 52: }; 53: local $SIG{__DIE__} = sub { Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:58): 58: }; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:60): 60: my($pkg, $callpkg, @imports) = @_; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:61): 61: my($type, $sym, $cache_is_current, $oops); Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:62): 62: my($exports, $export_cache) = (\@{"${pkg}::EXPORT"}, 63: $Exporter::Cache{$pkg} ||= {}); Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:62): 62: my($exports, $export_cache) = (\@{"${pkg}::EXPORT"}, 63: $Exporter::Cache{$pkg} ||= {}); Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:65): 65: if (@imports) { Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:158): 158: @imports = @$exports; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:161): 161: my($fail, $fail_cache) = (\@{"${pkg}::EXPORT_FAIL"}, 162: $Exporter::FailCache{$pkg} ||= {}); Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:161): 161: my($fail, $fail_cache) = (\@{"${pkg}::EXPORT_FAIL"}, 162: $Exporter::FailCache{$pkg} ||= {}); Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:164): 164: if (@$fail) { Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:189): 189: warn "Importing into $callpkg from $pkg: ", 190: join(", ",sort @imports) if $Exporter::Verbose; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:192): 192: foreach $sym (@imports) { Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(lib/Exporter/Heavy.pm:194): 194: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 195: unless $sym =~ s/^(\W)//; main::(ext\IO\t\io_sock.t:27): my $has_perlio = $] >= 5.008 && find PerlIO::Layer 'perlio'; main::(ext\IO\t\io_sock.t:29): $| = 1; main::(ext\IO\t\io_sock.t:30): print "1..26\n"; main::(ext\IO\t\io_sock.t:32): eval { main::(ext\IO\t\io_sock.t:33): $SIG{ALRM} = sub { die; }; main::(ext\IO\t\io_sock.t:34): alarm 120; main::(ext\IO\t\io_sock.t:39): $listen = IO::Socket::INET->new(Listen => 2, main::(ext\IO\t\io_sock.t:40): Proto => 'tcp', IO::Socket::INET::new(lib/IO/Socket/INET.pm:35): 35: my $class = shift; IO::Socket::INET::new(lib/IO/Socket/INET.pm:36): 36: unshift(@_, "PeerAddr") if @_ == 1; IO::Socket::INET::new(lib/IO/Socket/INET.pm:37): 37: return $class->SUPER::new(@_); IO::Socket::new(lib/IO/Socket.pm:41): 41: my($class,%arg) = @_; IO::Socket::new(lib/IO/Socket.pm:42): 42: my $sock = $class->SUPER::new(); IO::Handle::new(lib/IO/Handle.pm:311): 311: my $class = ref($_[0]) || $_[0] || "IO::Handle"; IO::Handle::new(lib/IO/Handle.pm:312): 312: @_ == 1 or croak "usage: new $class"; IO::Handle::new(lib/IO/Handle.pm:313): 313: my $io = gensym; Symbol::gensym(lib/Symbol.pm:101): my $name = "GEN" . $genseq++; Symbol::gensym(lib/Symbol.pm:102): my $ref = \*{$genpkg . $name}; Symbol::gensym(lib/Symbol.pm:102): my $ref = \*{$genpkg . $name}; Symbol::gensym(lib/Symbol.pm:103): delete $$genpkg{$name}; Symbol::gensym(lib/Symbol.pm:104): $ref; IO::Handle::new(lib/IO/Handle.pm:314): 314: bless $io, $class; IO::Socket::new(lib/IO/Socket.pm:44): 44: $sock->autoflush(1); IO::Handle::autoflush(lib/IO/Handle.pm:479): 479: my $old = new SelectSaver qualify($_[0], caller); Symbol::qualify(lib/Symbol.pm:117): my ($name) = @_; Symbol::qualify(lib/Symbol.pm:118): if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { Symbol::qualify(lib/Symbol.pm:131): $name; SelectSaver::new(lib/SelectSaver.pm:42): 42: @_ >= 1 && @_ <= 2 or croak 'usage: SelectSaver->new( [FILEHANDLE] )'; SelectSaver::new(lib/SelectSaver.pm:43): 43: my $fh = select; SelectSaver::new(lib/SelectSaver.pm:44): 44: my $self = bless \$fh, $_[0]; SelectSaver::new(lib/SelectSaver.pm:45): 45: select qualify($_[1], caller) if @_ > 1; Symbol::qualify(lib/Symbol.pm:117): my ($name) = @_; Symbol::qualify(lib/Symbol.pm:118): if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { Symbol::qualify(lib/Symbol.pm:131): $name; SelectSaver::new(lib/SelectSaver.pm:46): 46: $self; IO::Handle::autoflush(lib/IO/Handle.pm:480): 480: my $prev = $|; IO::Handle::autoflush(lib/IO/Handle.pm:481): 481: $| = @_ > 1 ? $_[1] : 1; IO::Handle::autoflush(lib/IO/Handle.pm:482): 482: $prev; SelectSaver::DESTROY(lib/SelectSaver.pm:50): 50: my $self = $_[0]; SelectSaver::DESTROY(lib/SelectSaver.pm:51): 51: select $$self; IO::Socket::new(lib/IO/Socket.pm:46): 46: ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout}; IO::Socket::new(lib/IO/Socket.pm:46): 46: ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout}; IO::Socket::new(lib/IO/Socket.pm:48): 48: return scalar(%arg) ? $sock->configure(\%arg) 49: : $sock; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:138): 138: my($sock,$arg) = @_; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:139): 139: my($lport,$rport,$laddr,$raddr,$proto,$type); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:142): 142: $arg->{LocalAddr} = $arg->{LocalHost} 143: if exists $arg->{LocalHost} && !exists $arg->{LocalAddr}; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:145): 145: ($laddr,$lport,$proto) = _sock_info($arg->{LocalAddr}, 146: $arg->{LocalPort}, 147: $arg->{Proto}) 148: or return _error($sock, $!, $@); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:73): 73: my($addr,$port,$proto) = @_; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:74): 74: my $origport = $port; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:75): 75: my @serv = (); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:77): 77: $port = $1 78: if(defined $addr && $addr =~ s,:([\w\(\)/]+)$,,); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:80): 80: if(defined $proto && $proto =~ /\D/) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:81): 81: my $num = _get_proto_number($proto); IO::Socket::INET::_get_proto_number(lib/IO/Socket/INET.pm:49): 49: my $name = lc(shift); IO::Socket::INET::_get_proto_number(lib/IO/Socket/INET.pm:50): 50: return undef unless defined $name; IO::Socket::INET::_get_proto_number(lib/IO/Socket/INET.pm:51): 51: return $proto_number{$name} if exists $proto_number{$name}; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:82): 82: unless (defined $num) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:86): 86: $proto = $num; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:89): 89: if(defined $port) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:105): 105: return ($addr || undef, 106: $port || undef, 107: $proto || undef 108: ); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:150): 150: $laddr = defined $laddr ? inet_aton($laddr) 151: : INADDR_ANY; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:153): 153: return _error($sock, $EINVAL, "Bad hostname '",$arg->{LocalAddr},"'") 154: unless(defined $laddr); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:156): 156: $arg->{PeerAddr} = $arg->{PeerHost} 157: if exists $arg->{PeerHost} && !exists $arg->{PeerAddr}; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:159): 159: unless(exists $arg->{Listen}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:166): 166: $proto ||= _get_proto_number('tcp'); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:168): 168: $type = $arg->{Type} || $socket_type{lc _get_proto_name($proto)}; IO::Socket::INET::_get_proto_name(lib/IO/Socket/INET.pm:61): 61: my $num = shift; IO::Socket::INET::_get_proto_name(lib/IO/Socket/INET.pm:62): 62: return undef unless defined $num; IO::Socket::INET::_get_proto_name(lib/IO/Socket/INET.pm:63): 63: return $proto_name{$num} if exists $proto_name{$num}; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:170): 170: my @raddr = (); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:172): 172: if(defined $raddr) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:178): 178: while(1) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:180): 180: $sock->socket(AF_INET, $type, $proto) or 181: return _error($sock, $!, "$!"); IO::Socket::socket(lib/IO/Socket.pm:77): 77: @_ == 4 or croak 'usage: $sock->socket(DOMAIN, TYPE, PROTOCOL)'; IO::Socket::socket(lib/IO/Socket.pm:78): 78: my($sock,$domain,$type,$protocol) = @_; IO::Socket::socket(lib/IO/Socket.pm:80): 80: socket($sock,$domain,$type,$protocol) or 81: return undef; IO::Socket::socket(lib/IO/Socket.pm:83): 83: ${*$sock}{'io_socket_domain'} = $domain; IO::Socket::socket(lib/IO/Socket.pm:83): 83: ${*$sock}{'io_socket_domain'} = $domain; IO::Socket::socket(lib/IO/Socket.pm:84): 84: ${*$sock}{'io_socket_type'} = $type; IO::Socket::socket(lib/IO/Socket.pm:84): 84: ${*$sock}{'io_socket_type'} = $type; IO::Socket::socket(lib/IO/Socket.pm:85): 85: ${*$sock}{'io_socket_proto'} = $protocol; IO::Socket::socket(lib/IO/Socket.pm:85): 85: ${*$sock}{'io_socket_proto'} = $protocol; IO::Socket::socket(lib/IO/Socket.pm:87): 87: $sock; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:183): 183: if (defined $arg->{Blocking}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:188): 188: if ($arg->{Reuse} || $arg->{ReuseAddr}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:193): 193: if ($arg->{ReusePort}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:198): 198: if ($arg->{Broadcast}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:203): 203: if($lport || ($laddr ne INADDR_ANY) || exists $arg->{Listen}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:204): 204: $sock->bind($lport || 0, $laddr) or 205: return _error($sock, $!, "$!"); IO::Socket::INET::bind(lib/IO/Socket/INET.pm:261): 261: @_ == 2 || @_ == 3 or 262: croak 'usage: $sock->bind(NAME) or $sock->bind(PORT, ADDR)'; IO::Socket::INET::bind(lib/IO/Socket/INET.pm:263): 263: my $sock = shift; IO::Socket::INET::bind(lib/IO/Socket/INET.pm:264): 264: return $sock->SUPER::bind(@_ == 1 ? shift : pack_sockaddr_in(@_)) IO::Socket::bind(lib/IO/Socket.pm:199): 199: @_ == 2 or croak 'usage: $sock->bind(NAME)'; IO::Socket::bind(lib/IO/Socket.pm:200): 200: my $sock = shift; IO::Socket::bind(lib/IO/Socket.pm:201): 201: my $addr = shift; IO::Socket::bind(lib/IO/Socket.pm:203): 203: return bind($sock, $addr) ? $sock 204: : undef; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:208): 208: if(exists $arg->{Listen}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:209): 209: $sock->listen($arg->{Listen} || 5) or 210: return _error($sock, $!, "$!"); IO::Socket::listen(lib/IO/Socket.pm:208): 208: @_ >= 1 && @_ <= 2 or croak 'usage: $sock->listen([QUEUE])'; IO::Socket::listen(lib/IO/Socket.pm:209): 209: my($sock,$queue) = @_; IO::Socket::listen(lib/IO/Socket.pm:210): 210: $queue = 5 211: unless $queue && $queue > 0; IO::Socket::listen(lib/IO/Socket.pm:213): 213: return listen($sock, $queue) ? $sock 214: : undef; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:211): 211: last; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:250): 250: $sock; main::(ext\IO\t\io_sock.t:46): print "ok 1\n"; main::(ext\IO\t\io_sock.t:49): if ($^O eq 'os2' and main::(ext\IO\t\io_sock.t:50): system "$^X -I../lib -MOpcode -e 'defined fork or die' > /dev/null 2>&1") { main::(ext\IO\t\io_sock.t:55): $port = $listen->sockport; IO::Socket::INET::sockport(lib/IO/Socket/INET.pm:275): 275: @_ == 1 or croak 'usage: $sock->sockport()'; IO::Socket::INET::sockport(lib/IO/Socket/INET.pm:276): 276: my($sock) = @_; IO::Socket::INET::sockport(lib/IO/Socket/INET.pm:277): 277: my $name = $sock->sockname; IO::Socket::sockname(lib/IO/Socket.pm:245): 245: @_ == 1 or croak 'usage: $sock->sockname()'; IO::Socket::sockname(lib/IO/Socket.pm:246): 246: getsockname($_[0]); IO::Socket::INET::sockport(lib/IO/Socket/INET.pm:278): 278: $name ? (sockaddr_in($name))[0] : undef; Socket::sockaddr_in(lib/Socket.pm:392): 392: if (@_ == 6 && !wantarray) { # perl5.001m compat; use this && die Socket::sockaddr_in(lib/Socket.pm:398): 398: croak "usage: (port,iaddr) = sockaddr_in(sin_sv)" unless @_ == 1; Socket::sockaddr_in(lib/Socket.pm:399): 399: unpack_sockaddr_in(@_); main::(ext\IO\t\io_sock.t:57): if($pid = fork()) { main::(ext\IO\t\io_sock.t:59): $sock = $listen->accept() or die "accept failed: $!"; IO::Socket::accept(lib/IO/Socket.pm:218): 218: @_ == 1 || @_ == 2 or croak 'usage $sock->accept([PKG])'; IO::Socket::accept(lib/IO/Socket.pm:219): 219: my $sock = shift; IO::Socket::accept(lib/IO/Socket.pm:220): 220: my $pkg = shift || $sock; IO::Socket::accept(lib/IO/Socket.pm:221): 221: my $timeout = ${*$sock}{'io_socket_timeout'}; IO::Socket::accept(lib/IO/Socket.pm:221): 221: my $timeout = ${*$sock}{'io_socket_timeout'}; IO::Socket::accept(lib/IO/Socket.pm:222): 222: my $new = $pkg->new(Timeout => $timeout); IO::Socket::INET::new(lib/IO/Socket/INET.pm:35): 35: my $class = shift; IO::Socket::INET::new(lib/IO/Socket/INET.pm:36): 36: unshift(@_, "PeerAddr") if @_ == 1; IO::Socket::INET::new(lib/IO/Socket/INET.pm:37): 37: return $class->SUPER::new(@_); IO::Socket::new(lib/IO/Socket.pm:41): 41: my($class,%arg) = @_; IO::Socket::new(lib/IO/Socket.pm:42): 42: my $sock = $class->SUPER::new(); IO::Handle::new(lib/IO/Handle.pm:311): 311: my $class = ref($_[0]) || $_[0] || "IO::Handle"; IO::Handle::new(lib/IO/Handle.pm:312): 312: @_ == 1 or croak "usage: new $class"; IO::Handle::new(lib/IO/Handle.pm:313): 313: my $io = gensym; Symbol::gensym(lib/Symbol.pm:101): my $name = "GEN" . $genseq++; Symbol::gensym(lib/Symbol.pm:102): my $ref = \*{$genpkg . $name}; Symbol::gensym(lib/Symbol.pm:102): my $ref = \*{$genpkg . $name}; Symbol::gensym(lib/Symbol.pm:103): delete $$genpkg{$name}; Symbol::gensym(lib/Symbol.pm:104): $ref; IO::Handle::new(lib/IO/Handle.pm:314): 314: bless $io, $class; IO::Socket::new(lib/IO/Socket.pm:44): 44: $sock->autoflush(1); IO::Handle::autoflush(lib/IO/Handle.pm:479): 479: my $old = new SelectSaver qualify($_[0], caller); Symbol::qualify(lib/Symbol.pm:117): my ($name) = @_; Symbol::qualify(lib/Symbol.pm:118): if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { Symbol::qualify(lib/Symbol.pm:131): $name; SelectSaver::new(lib/SelectSaver.pm:42): 42: @_ >= 1 && @_ <= 2 or croak 'usage: SelectSaver->new( [FILEHANDLE] )'; SelectSaver::new(lib/SelectSaver.pm:43): 43: my $fh = select; SelectSaver::new(lib/SelectSaver.pm:44): 44: my $self = bless \$fh, $_[0]; SelectSaver::new(lib/SelectSaver.pm:45): 45: select qualify($_[1], caller) if @_ > 1; Symbol::qualify(lib/Symbol.pm:117): my ($name) = @_; Symbol::qualify(lib/Symbol.pm:118): if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { Symbol::qualify(lib/Symbol.pm:131): $name; SelectSaver::new(lib/SelectSaver.pm:46): 46: $self; IO::Handle::autoflush(lib/IO/Handle.pm:480): 480: my $prev = $|; IO::Handle::autoflush(lib/IO/Handle.pm:481): 481: $| = @_ > 1 ? $_[1] : 1; IO::Handle::autoflush(lib/IO/Handle.pm:482): 482: $prev; SelectSaver::DESTROY(lib/SelectSaver.pm:50): 50: my $self = $_[0]; SelectSaver::DESTROY(lib/SelectSaver.pm:51): 51: select $$self; IO::Socket::new(lib/IO/Socket.pm:46): 46: ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout}; IO::Socket::new(lib/IO/Socket.pm:46): 46: ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout}; IO::Socket::new(lib/IO/Socket.pm:48): 48: return scalar(%arg) ? $sock->configure(\%arg) 49: : $sock; IO::Socket::accept(lib/IO/Socket.pm:223): 223: my $peer = undef; main::(ext\IO\t\io_sock.t:75): $sock = IO::Socket::INET->new(PeerPort => $port, main::(ext\IO\t\io_sock.t:76): Proto => 'tcp', IO::Socket::accept(lib/IO/Socket.pm:225): 225: if(defined $timeout) { main::(ext\IO\t\io_sock.t:77): PeerAddr => 'localhost' main::(ext\IO\t\io_sock.t:78): ) main::(ext\IO\t\io_sock.t:79): || IO::Socket::INET->new(PeerPort => $port, main::(ext\IO\t\io_sock.t:80): Proto => 'tcp', main::(ext\IO\t\io_sock.t:81): PeerAddr => '127.0.0.1' main::(ext\IO\t\io_sock.t:82): ) main::(ext\IO\t\io_sock.t:83): or die "$! (maybe your system does not have a localhost at all, 'localhost' or 127.0.0.1)"; IO::Socket::accept(lib/IO/Socket.pm:226): 226: require IO::Select; IO::Socket::INET::new(lib/IO/Socket/INET.pm:35): 35: my $class = shift; IO::Socket::INET::new(lib/IO/Socket/INET.pm:36): 36: unshift(@_, "PeerAddr") if @_ == 1; IO::Socket::INET::new(lib/IO/Socket/INET.pm:37): 37: return $class->SUPER::new(@_); IO::Socket::new(lib/IO/Socket.pm:41): 41: my($class,%arg) = @_; IO::Select::CODE(0x1fc24ac)(lib/IO/Select.pm:9): 9: use strict; IO::Socket::new(lib/IO/Socket.pm:42): 42: my $sock = $class->SUPER::new(); IO::Select::CODE(0x1fc24ac)(lib/IO/Select.pm:9): 9: use strict; IO::Handle::new(lib/IO/Handle.pm:311): 311: my $class = ref($_[0]) || $_[0] || "IO::Handle"; IO::Select::CODE(0x1fc24ac)(lib/IO/Select.pm:9): 9: use strict; IO::Handle::new(lib/IO/Handle.pm:312): 312: @_ == 1 or croak "usage: new $class"; IO::Handle::new(lib/IO/Handle.pm:313): 313: my $io = gensym; strict::import(lib/strict.pm:35): shift; Symbol::gensym(lib/Symbol.pm:101): my $name = "GEN" . $genseq++; strict::import(lib/strict.pm:36): $^H |= @_ ? bits(@_) : $default_bits; Symbol::gensym(lib/Symbol.pm:102): my $ref = \*{$genpkg . $name}; Symbol::gensym(lib/Symbol.pm:102): my $ref = \*{$genpkg . $name}; IO::Select::CODE(0x1fc24cc)(lib/IO/Select.pm:10): 10: use warnings::register; Symbol::gensym(lib/Symbol.pm:103): delete $$genpkg{$name}; IO::Select::CODE(0x1fc24cc)(lib/IO/Select.pm:10): 10: use warnings::register; Symbol::gensym(lib/Symbol.pm:104): $ref; IO::Handle::new(lib/IO/Handle.pm:314): 314: bless $io, $class; IO::Select::CODE(0x1fc24cc)(lib/IO/Select.pm:10): 10: use warnings::register; IO::Socket::new(lib/IO/Socket.pm:44): 44: $sock->autoflush(1); warnings::register::import(lib/warnings/register.pm:37): 37: shift; IO::Handle::autoflush(lib/IO/Handle.pm:479): 479: my $old = new SelectSaver qualify($_[0], caller); warnings::register::import(lib/warnings/register.pm:38): 38: my $package = (caller(0))[0]; Symbol::qualify(lib/Symbol.pm:117): my ($name) = @_; Symbol::qualify(lib/Symbol.pm:118): if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { warnings::register::import(lib/warnings/register.pm:39): 39: if (! defined $warnings::Bits{$package}) { Symbol::qualify(lib/Symbol.pm:131): $name; warnings::register::import(lib/warnings/register.pm:40): 40: $warnings::Bits{$package} = mkMask($warnings::LAST_BIT); SelectSaver::new(lib/SelectSaver.pm:42): 42: @_ >= 1 && @_ <= 2 or croak 'usage: SelectSaver->new( [FILEHANDLE] )'; SelectSaver::new(lib/SelectSaver.pm:43): 43: my $fh = select; warnings::register::mkMask(lib/warnings/register.pm:28): 28: my ($bit) = @_; SelectSaver::new(lib/SelectSaver.pm:44): 44: my $self = bless \$fh, $_[0]; SelectSaver::new(lib/SelectSaver.pm:45): 45: select qualify($_[1], caller) if @_ > 1; warnings::register::mkMask(lib/warnings/register.pm:29): 29: my $mask = ""; Symbol::qualify(lib/Symbol.pm:117): my ($name) = @_; warnings::register::mkMask(lib/warnings/register.pm:31): 31: vec($mask, $bit, 1) = 1; Symbol::qualify(lib/Symbol.pm:118): if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { warnings::register::mkMask(lib/warnings/register.pm:32): 32: return $mask; Symbol::qualify(lib/Symbol.pm:131): $name; warnings::register::import(lib/warnings/register.pm:41): 41: vec($warnings::Bits{'all'}, $warnings::LAST_BIT, 1) = 1; SelectSaver::new(lib/SelectSaver.pm:46): 46: $self; warnings::register::import(lib/warnings/register.pm:42): 42: $warnings::Offsets{$package} = $warnings::LAST_BIT ++; IO::Handle::autoflush(lib/IO/Handle.pm:480): 480: my $prev = $|; IO::Handle::autoflush(lib/IO/Handle.pm:481): 481: $| = @_ > 1 ? $_[1] : 1; warnings::register::import(lib/warnings/register.pm:43): 43: foreach my $k (keys %warnings::Bits) { IO::Handle::autoflush(lib/IO/Handle.pm:482): 482: $prev; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; SelectSaver::DESTROY(lib/SelectSaver.pm:50): 50: my $self = $_[0]; SelectSaver::DESTROY(lib/SelectSaver.pm:51): 51: select $$self; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; IO::Socket::new(lib/IO/Socket.pm:46): 46: ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout}; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; IO::Socket::new(lib/IO/Socket.pm:46): 46: ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout}; IO::Socket::new(lib/IO/Socket.pm:48): 48: return scalar(%arg) ? $sock->configure(\%arg) warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; 49: : $sock; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:138): 138: my($sock,$arg) = @_; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:139): 139: my($lport,$rport,$laddr,$raddr,$proto,$type); warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:142): 142: $arg->{LocalAddr} = $arg->{LocalHost} 143: if exists $arg->{LocalHost} && !exists $arg->{LocalAddr}; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:145): 145: ($laddr,$lport,$proto) = _sock_info($arg->{LocalAddr}, 146: $arg->{LocalPort}, 147: $arg->{Proto}) 148: or return _error($sock, $!, $@); warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:73): 73: my($addr,$port,$proto) = @_; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:74): 74: my $origport = $port; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:75): 75: my @serv = (); warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:77): 77: $port = $1 78: if(defined $addr && $addr =~ s,:([\w\(\)/]+)$,,); warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:80): 80: if(defined $proto && $proto =~ /\D/) { warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:81): 81: my $num = _get_proto_number($proto); warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; IO::Socket::INET::_get_proto_number(lib/IO/Socket/INET.pm:49): 49: my $name = lc(shift); IO::Socket::INET::_get_proto_number(lib/IO/Socket/INET.pm:50): 50: return undef unless defined $name; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; IO::Socket::INET::_get_proto_number(lib/IO/Socket/INET.pm:51): 51: return $proto_number{$name} if exists $proto_number{$name}; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:82): 82: unless (defined $num) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:86): 86: $proto = $num; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:89): 89: if(defined $port) { warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:105): 105: return ($addr || undef, 106: $port || undef, 107: $proto || undef 108: ); warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:150): 150: $laddr = defined $laddr ? inet_aton($laddr) 151: : INADDR_ANY; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:153): 153: return _error($sock, $EINVAL, "Bad hostname '",$arg->{LocalAddr},"'") 154: unless(defined $laddr); warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:156): 156: $arg->{PeerAddr} = $arg->{PeerHost} 157: if exists $arg->{PeerHost} && !exists $arg->{PeerAddr}; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:159): 159: unless(exists $arg->{Listen}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:160): 160: ($raddr,$rport,$proto) = _sock_info($arg->{PeerAddr}, 161: $arg->{PeerPort}, 162: $proto) 163: or return _error($sock, $!, $@); warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:73): 73: my($addr,$port,$proto) = @_; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:74): 74: my $origport = $port; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:75): 75: my @serv = (); warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:77): 77: $port = $1 78: if(defined $addr && $addr =~ s,:([\w\(\)/]+)$,,); warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:80): 80: if(defined $proto && $proto =~ /\D/) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:89): 89: if(defined $port) { warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:90): 90: my $defport = ($port =~ s,\((\d+)\)$,,) ? $1 : undef; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:91): 91: my $pnum = ($port =~ m,^(\d+)$,)[0]; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:93): 93: @serv = getservbyname($port, _get_proto_name($proto) || "") 94: if ($port =~ m,\D,); warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:96): 96: $port = $serv[2] || $defport || $pnum; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:97): 97: unless (defined $port) { warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:102): 102: $proto = _get_proto_number($serv[3]) if @serv && !$proto; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:105): 105: return ($addr || undef, 106: $port || undef, 107: $proto || undef 108: ); warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:166): 166: $proto ||= _get_proto_number('tcp'); warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:168): 168: $type = $arg->{Type} || $socket_type{lc _get_proto_name($proto)}; IO::Socket::INET::_get_proto_name(lib/IO/Socket/INET.pm:61): 61: my $num = shift; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; IO::Socket::INET::_get_proto_name(lib/IO/Socket/INET.pm:62): 62: return undef unless defined $num; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; IO::Socket::INET::_get_proto_name(lib/IO/Socket/INET.pm:63): 63: return $proto_name{$num} if exists $proto_name{$num}; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:170): 170: my @raddr = (); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:172): 172: if(defined $raddr) { warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:173): 173: @raddr = $sock->_get_addr($raddr, $arg->{MultiHomed}); warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:126): 126: my($sock,$addr_str, $multi) = @_; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:127): 127: my @addr; IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:128): 128: if ($multi && $addr_str !~ /^\d+(?:\.\d+){3}$/) { warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:131): 131: my $h = inet_aton($addr_str); warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:46): 46: $warnings::DeadBits{$package} = mkMask($warnings::LAST_BIT); warnings::register::mkMask(lib/warnings/register.pm:28): 28: my ($bit) = @_; warnings::register::mkMask(lib/warnings/register.pm:29): 29: my $mask = ""; warnings::register::mkMask(lib/warnings/register.pm:31): 31: vec($mask, $bit, 1) = 1; warnings::register::mkMask(lib/warnings/register.pm:32): 32: return $mask; warnings::register::import(lib/warnings/register.pm:47): 47: vec($warnings::DeadBits{'all'}, $warnings::LAST_BIT++, 1) = 1; IO::Select::CODE(0x1fc253c)(lib/IO/Select.pm:11): 11: use vars qw($VERSION @ISA); vars::CODE(0x1fc278c)(lib/vars.pm:3): 3: use 5.006; vars::CODE(0x1fc278c)(lib/vars.pm:3): 3: use 5.006; vars::CODE(0x1fc278c)(lib/vars.pm:3): 3: use 5.006; vars::CODE(0x1fc292c)(lib/vars.pm:7): 7: use warnings::register; vars::CODE(0x1fc292c)(lib/vars.pm:7): 7: use warnings::register; vars::CODE(0x1fc292c)(lib/vars.pm:7): 7: use warnings::register; warnings::register::import(lib/warnings/register.pm:37): 37: shift; warnings::register::import(lib/warnings/register.pm:38): 38: my $package = (caller(0))[0]; warnings::register::import(lib/warnings/register.pm:39): 39: if (! defined $warnings::Bits{$package}) { warnings::register::import(lib/warnings/register.pm:40): 40: $warnings::Bits{$package} = mkMask($warnings::LAST_BIT); warnings::register::mkMask(lib/warnings/register.pm:28): 28: my ($bit) = @_; warnings::register::mkMask(lib/warnings/register.pm:29): 29: my $mask = ""; warnings::register::mkMask(lib/warnings/register.pm:31): 31: vec($mask, $bit, 1) = 1; warnings::register::mkMask(lib/warnings/register.pm:32): 32: return $mask; warnings::register::import(lib/warnings/register.pm:41): 41: vec($warnings::Bits{'all'}, $warnings::LAST_BIT, 1) = 1; warnings::register::import(lib/warnings/register.pm:42): 42: $warnings::Offsets{$package} = $warnings::LAST_BIT ++; warnings::register::import(lib/warnings/register.pm:43): 43: foreach my $k (keys %warnings::Bits) { warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:44): 44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; warnings::register::import(lib/warnings/register.pm:46): 46: $warnings::DeadBits{$package} = mkMask($warnings::LAST_BIT); warnings::register::mkMask(lib/warnings/register.pm:28): 28: my ($bit) = @_; warnings::register::mkMask(lib/warnings/register.pm:29): 29: my $mask = ""; warnings::register::mkMask(lib/warnings/register.pm:31): 31: vec($mask, $bit, 1) = 1; warnings::register::mkMask(lib/warnings/register.pm:32): 32: return $mask; warnings::register::import(lib/warnings/register.pm:47): 47: vec($warnings::DeadBits{'all'}, $warnings::LAST_BIT++, 1) = 1; vars::CODE(0x1fc290c)(lib/vars.pm:8): 8: use strict qw(vars subs); vars::CODE(0x1fc290c)(lib/vars.pm:8): 8: use strict qw(vars subs); vars::CODE(0x1fc290c)(lib/vars.pm:8): 8: use strict qw(vars subs); strict::import(lib/strict.pm:35): shift; strict::import(lib/strict.pm:36): $^H |= @_ ? bits(@_) : $default_bits; strict::bits(lib/strict.pm:19): my $bits = 0; strict::bits(lib/strict.pm:20): my @wrong; strict::bits(lib/strict.pm:21): foreach my $s (@_) { strict::bits(lib/strict.pm:22): push @wrong, $s unless exists $bitmask{$s}; strict::bits(lib/strict.pm:23): $bits |= $bitmask{$s} || 0; strict::bits(lib/strict.pm:22): push @wrong, $s unless exists $bitmask{$s}; strict::bits(lib/strict.pm:23): $bits |= $bitmask{$s} || 0; strict::bits(lib/strict.pm:25): if (@wrong) { strict::bits(lib/strict.pm:29): $bits; vars::CODE(0x1fc253c)(lib/vars.pm:5): 5: our $VERSION = '1.01'; vars::CODE(0x1fc253c)(lib/vars.pm:46): 46: 1; 47: __END__ IO::Select::CODE(0x1fc253c)(lib/IO/Select.pm:11): 11: use vars qw($VERSION @ISA); IO::Select::CODE(0x1fc253c)(lib/IO/Select.pm:11): 11: use vars qw($VERSION @ISA); vars::import(lib/vars.pm:11): my $callpack = caller; vars::import(lib/vars.pm:12): my ($pack, @imports) = @_; vars::import(lib/vars.pm:13): my ($sym, $ch); vars::import(lib/vars.pm:14): foreach (@imports) { vars::import(lib/vars.pm:15): if (($ch, $sym) = /^([\$\@\%\*\&])(.+)/) { vars::import(lib/vars.pm:16): if ($sym =~ /\W/) { vars::import(lib/vars.pm:28): $sym = "${callpack}::$sym" unless $sym =~ /::/; vars::import(lib/vars.pm:29): *$sym = vars::import(lib/vars.pm:30): ( $ch eq "\$" ? \$$sym vars::import(lib/vars.pm:31): : $ch eq "\@" ? \@$sym vars::import(lib/vars.pm:32): : $ch eq "\%" ? \%$sym vars::import(lib/vars.pm:33): : $ch eq "\*" ? \*$sym vars::import(lib/vars.pm:34): : $ch eq "\&" ? \&$sym vars::import(lib/vars.pm:35): : do { vars::import(lib/vars.pm:15): if (($ch, $sym) = /^([\$\@\%\*\&])(.+)/) { vars::import(lib/vars.pm:16): if ($sym =~ /\W/) { vars::import(lib/vars.pm:28): $sym = "${callpack}::$sym" unless $sym =~ /::/; vars::import(lib/vars.pm:29): *$sym = vars::import(lib/vars.pm:30): ( $ch eq "\$" ? \$$sym vars::import(lib/vars.pm:31): : $ch eq "\@" ? \@$sym vars::import(lib/vars.pm:32): : $ch eq "\%" ? \%$sym vars::import(lib/vars.pm:33): : $ch eq "\*" ? \*$sym vars::import(lib/vars.pm:34): : $ch eq "\&" ? \&$sym vars::import(lib/vars.pm:35): : do { IO::Socket::accept(lib/IO/Select.pm:12): 12: require Exporter; IO::Socket::accept(lib/IO/Select.pm:14): 14: $VERSION = "1.17"; IO::Socket::accept(lib/IO/Select.pm:16): 16: @ISA = qw(Exporter); # This is only so we can do version checking IO::Socket::accept(lib/IO/Select.pm:235): 235: 1; 236: __END__ IO::Socket::accept(lib/IO/Socket.pm:228): 228: my $sel = new IO::Select $sock; IO::Select::new(lib/IO/Select.pm:24): 24: my $self = shift; IO::Select::new(lib/IO/Select.pm:25): 25: my $type = ref($self) || $self; IO::Select::new(lib/IO/Select.pm:27): 27: my $vec = bless [undef,0], $type; IO::Select::new(lib/IO/Select.pm:29): 29: $vec->add(@_) 30: if @_; IO::Select::add(lib/IO/Select.pm:37): 37: shift->_update('add', @_); IO::Select::_update(lib/IO/Select.pm:66): 66: my $vec = shift; IO::Select::_update(lib/IO/Select.pm:67): 67: my $add = shift eq 'add'; IO::Select::_update(lib/IO/Select.pm:69): 69: my $bits = $vec->[VEC_BITS]; IO::Select::_update(lib/IO/Select.pm:70): 70: $bits = '' unless defined $bits; IO::Select::_update(lib/IO/Select.pm:72): 72: my $count = 0; IO::Select::_update(lib/IO/Select.pm:73): 73: my $f; IO::Select::_update(lib/IO/Select.pm:74): 74: foreach $f (@_) 75: { IO::Select::_update(lib/IO/Select.pm:76): 76: my $fn = $vec->_fileno($f); IO::Select::_fileno(lib/IO/Select.pm:58): 58: my($self, $f) = @_; IO::Select::_fileno(lib/IO/Select.pm:59): 59: return unless defined $f; IO::Select::_fileno(lib/IO/Select.pm:60): 60: $f = $f->[0] if ref($f) eq 'ARRAY'; IO::Select::_fileno(lib/IO/Select.pm:61): 61: ($f =~ /^\d+$/) ? $f : fileno($f); IO::Select::_update(lib/IO/Select.pm:77): 77: next unless defined $fn; IO::Select::_update(lib/IO/Select.pm:78): 78: my $i = $fn + FIRST_FD; IO::Select::_update(lib/IO/Select.pm:79): 79: if ($add) { IO::Select::_update(lib/IO/Select.pm:80): 80: if (defined $vec->[$i]) { IO::Select::_update(lib/IO/Select.pm:84): 84: $vec->[FD_COUNT]++; IO::Select::_update(lib/IO/Select.pm:85): 85: vec($bits, $fn, 1) = 1; IO::Select::_update(lib/IO/Select.pm:86): 86: $vec->[$i] = $f; IO::Select::_update(lib/IO/Select.pm:93): 93: $count++; IO::Select::_update(lib/IO/Select.pm:95): 95: $vec->[VEC_BITS] = $vec->[FD_COUNT] ? $bits : undef; IO::Select::_update(lib/IO/Select.pm:96): 96: $count; IO::Select::new(lib/IO/Select.pm:32): 32: $vec; IO::Socket::accept(lib/IO/Socket.pm:230): 230: unless ($sel->can_read($timeout)) { IO::Select::can_read(lib/IO/Select.pm:101): 101: my $vec = shift; IO::Select::can_read(lib/IO/Select.pm:102): 102: my $timeout = shift; IO::Select::can_read(lib/IO/Select.pm:103): 103: my $r = $vec->[VEC_BITS]; IO::Select::can_read(lib/IO/Select.pm:105): 105: defined($r) && (select($r,undef,undef,$timeout) > 0) 106: ? handles($vec, $r) 107: : (); IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:132): 132: push(@addr, $h) if defined $h; IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:134): 134: @addr; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:174): 174: return _error($sock, $EINVAL, "Bad hostname '",$arg->{PeerAddr},"'") 175: unless @raddr; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:178): 178: while(1) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:180): 180: $sock->socket(AF_INET, $type, $proto) or 181: return _error($sock, $!, "$!"); IO::Socket::socket(lib/IO/Socket.pm:77): 77: @_ == 4 or croak 'usage: $sock->socket(DOMAIN, TYPE, PROTOCOL)'; IO::Socket::socket(lib/IO/Socket.pm:78): 78: my($sock,$domain,$type,$protocol) = @_; IO::Socket::socket(lib/IO/Socket.pm:80): 80: socket($sock,$domain,$type,$protocol) or 81: return undef; IO::Socket::socket(lib/IO/Socket.pm:83): 83: ${*$sock}{'io_socket_domain'} = $domain; IO::Socket::socket(lib/IO/Socket.pm:83): 83: ${*$sock}{'io_socket_domain'} = $domain; IO::Socket::socket(lib/IO/Socket.pm:84): 84: ${*$sock}{'io_socket_type'} = $type; IO::Socket::socket(lib/IO/Socket.pm:84): 84: ${*$sock}{'io_socket_type'} = $type; IO::Socket::socket(lib/IO/Socket.pm:85): 85: ${*$sock}{'io_socket_proto'} = $protocol; IO::Socket::socket(lib/IO/Socket.pm:85): 85: ${*$sock}{'io_socket_proto'} = $protocol; IO::Socket::socket(lib/IO/Socket.pm:87): 87: $sock; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:183): 183: if (defined $arg->{Blocking}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:188): 188: if ($arg->{Reuse} || $arg->{ReuseAddr}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:193): 193: if ($arg->{ReusePort}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:198): 198: if ($arg->{Broadcast}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:203): 203: if($lport || ($laddr ne INADDR_ANY) || exists $arg->{Listen}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:208): 208: if(exists $arg->{Listen}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:215): 215: last unless exists($arg->{PeerAddr}); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:217): 217: $raddr = shift @raddr; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:219): 219: return _error($sock, $EINVAL, 'Cannot determine remote port') 220: unless($rport || $type == SOCK_DGRAM || $type == SOCK_RAW); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:223): 223: unless($type == SOCK_STREAM || defined $raddr); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:225): 225: return _error($sock, $EINVAL, "Bad hostname '",$arg->{PeerAddr},"'") 226: unless defined $raddr; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:231): 231: undef $@; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:232): 232: if ($sock->connect(pack_sockaddr_in($rport, $raddr))) { IO::Socket::INET::connect(lib/IO/Socket/INET.pm:254): 254: @_ == 2 || @_ == 3 or 255: croak 'usage: $sock->connect(NAME) or $sock->connect(PORT, ADDR)'; IO::Socket::INET::connect(lib/IO/Socket/INET.pm:256): 256: my $sock = shift; IO::Socket::INET::connect(lib/IO/Socket/INET.pm:257): 257: return $sock->SUPER::connect(@_ == 1 ? shift : pack_sockaddr_in(@_)); IO::Socket::connect(lib/IO/Socket.pm:106): 106: @_ == 2 or croak 'usage: $sock->connect(NAME)'; IO::Socket::connect(lib/IO/Socket.pm:107): 107: my $sock = shift; IO::Socket::connect(lib/IO/Socket.pm:108): 108: my $addr = shift; IO::Socket::connect(lib/IO/Socket.pm:109): 109: my $timeout = ${*$sock}{'io_socket_timeout'}; IO::Socket::connect(lib/IO/Socket.pm:109): 109: my $timeout = ${*$sock}{'io_socket_timeout'}; IO::Socket::connect(lib/IO/Socket.pm:110): 110: my $err; IO::Socket::connect(lib/IO/Socket.pm:111): 111: my $blocking; IO::Socket::connect(lib/IO/Socket.pm:113): 113: $blocking = $sock->blocking(0) if $timeout; IO::Socket::connect(lib/IO/Socket.pm:114): 114: if (!connect($sock, $addr)) { IO::Select::handles(lib/IO/Select.pm:219): 219: my $vec = shift; IO::Select::handles(lib/IO/Select.pm:220): 220: my $bits = shift; IO::Select::handles(lib/IO/Select.pm:221): 221: my @h = (); IO::Select::handles(lib/IO/Select.pm:222): 222: my $i; IO::Select::handles(lib/IO/Select.pm:223): 223: my $max = scalar(@$vec) - 1; IO::Select::handles(lib/IO/Select.pm:230): 230: } IO::Select::handles(lib/IO/Select.pm:225): 225: for ($i = FIRST_FD; $i <= $max; $i++) 226: { IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Select::handles(lib/IO/Select.pm:228): 228: push(@h, $vec->[$i]) 229: if !defined($bits) || vec($bits, $i - FIRST_FD, 1); IO::Select::handles(lib/IO/Select.pm:232): 232: @h; IO::Socket::accept(lib/IO/Socket.pm:237): 237: $peer = accept($new,$sock) 238: or return; IO::Socket::accept(lib/IO/Socket.pm:240): 240: return wantarray ? ($new, $peer) 241: : $new; main::(ext\IO\t\io_sock.t:60): print "ok 2\n"; main::(ext\IO\t\io_sock.t:62): $sock->autoflush(1); IO::Handle::autoflush(lib/IO/Handle.pm:479): 479: my $old = new SelectSaver qualify($_[0], caller); Symbol::qualify(lib/Symbol.pm:117): my ($name) = @_; Symbol::qualify(lib/Symbol.pm:118): if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { Symbol::qualify(lib/Symbol.pm:131): $name; SelectSaver::new(lib/SelectSaver.pm:42): 42: @_ >= 1 && @_ <= 2 or croak 'usage: SelectSaver->new( [FILEHANDLE] )'; SelectSaver::new(lib/SelectSaver.pm:43): 43: my $fh = select; SelectSaver::new(lib/SelectSaver.pm:44): 44: my $self = bless \$fh, $_[0]; SelectSaver::new(lib/SelectSaver.pm:45): 45: select qualify($_[1], caller) if @_ > 1; Symbol::qualify(lib/Symbol.pm:117): my ($name) = @_; Symbol::qualify(lib/Symbol.pm:118): if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { Symbol::qualify(lib/Symbol.pm:131): $name; SelectSaver::new(lib/SelectSaver.pm:46): 46: $self; IO::Handle::autoflush(lib/IO/Handle.pm:480): 480: my $prev = $|; IO::Handle::autoflush(lib/IO/Handle.pm:481): 481: $| = @_ > 1 ? $_[1] : 1; IO::Handle::autoflush(lib/IO/Handle.pm:482): 482: $prev; SelectSaver::DESTROY(lib/SelectSaver.pm:50): 50: my $self = $_[0]; SelectSaver::DESTROY(lib/SelectSaver.pm:51): 51: select $$self; main::(ext\IO\t\io_sock.t:63): print $sock->getline(); IO::Handle::getline(lib/IO/Handle.pm:423): 423: @_ == 1 or croak 'usage: $io->getline()'; IO::Handle::getline(lib/IO/Handle.pm:424): 424: my $this = shift; IO::Handle::getline(lib/IO/Handle.pm:425): 425: return scalar <$this>; IO::Socket::connect(lib/IO/Socket.pm:141): 141: $sock->blocking(1) if $blocking; IO::Socket::connect(lib/IO/Socket.pm:143): 143: $! = $err if $err; IO::Socket::connect(lib/IO/Socket.pm:145): 145: $err ? undef : $sock; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:234): 234: return $sock; main::(ext\IO\t\io_sock.t:85): $sock->autoflush(1); IO::Handle::autoflush(lib/IO/Handle.pm:479): 479: my $old = new SelectSaver qualify($_[0], caller); Symbol::qualify(lib/Symbol.pm:117): my ($name) = @_; Symbol::qualify(lib/Symbol.pm:118): if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { Symbol::qualify(lib/Symbol.pm:131): $name; SelectSaver::new(lib/SelectSaver.pm:42): 42: @_ >= 1 && @_ <= 2 or croak 'usage: SelectSaver->new( [FILEHANDLE] )'; SelectSaver::new(lib/SelectSaver.pm:43): 43: my $fh = select; SelectSaver::new(lib/SelectSaver.pm:44): 44: my $self = bless \$fh, $_[0]; SelectSaver::new(lib/SelectSaver.pm:45): 45: select qualify($_[1], caller) if @_ > 1; Symbol::qualify(lib/Symbol.pm:117): my ($name) = @_; Symbol::qualify(lib/Symbol.pm:118): if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { Symbol::qualify(lib/Symbol.pm:131): $name; SelectSaver::new(lib/SelectSaver.pm:46): 46: $self; IO::Handle::autoflush(lib/IO/Handle.pm:480): 480: my $prev = $|; IO::Handle::autoflush(lib/IO/Handle.pm:481): 481: $| = @_ > 1 ? $_[1] : 1; IO::Handle::autoflush(lib/IO/Handle.pm:482): 482: $prev; SelectSaver::DESTROY(lib/SelectSaver.pm:50): 50: my $self = $_[0]; SelectSaver::DESTROY(lib/SelectSaver.pm:51): 51: select $$self; main::(ext\IO\t\io_sock.t:87): print $sock "ok 3\n"; main::(ext\IO\t\io_sock.t:89): print $sock->getline(); main::(ext\IO\t\io_sock.t:65): print $sock "ok 4\n"; IO::Handle::getline(lib/IO/Handle.pm:423): 423: @_ == 1 or croak 'usage: $io->getline()'; IO::Handle::getline(lib/IO/Handle.pm:424): 424: my $this = shift; main::(ext\IO\t\io_sock.t:67): $sock->close; IO::Handle::getline(lib/IO/Handle.pm:425): 425: return scalar <$this>; IO::Socket::close(lib/IO/Socket.pm:192): 192: @_ == 1 or croak 'usage: $sock->close()'; main::(ext\IO\t\io_sock.t:91): $sock->close; IO::Socket::close(lib/IO/Socket.pm:193): 193: my $sock = shift; IO::Socket::close(lib/IO/Socket.pm:192): 192: @_ == 1 or croak 'usage: $sock->close()'; IO::Socket::close(lib/IO/Socket.pm:194): 194: ${*$sock}{'io_socket_peername'} = undef; IO::Socket::close(lib/IO/Socket.pm:193): 193: my $sock = shift; IO::Socket::close(lib/IO/Socket.pm:194): 194: ${*$sock}{'io_socket_peername'} = undef; IO::Socket::close(lib/IO/Socket.pm:194): 194: ${*$sock}{'io_socket_peername'} = undef; IO::Socket::close(lib/IO/Socket.pm:195): 195: $sock->SUPER::close(); IO::Socket::close(lib/IO/Socket.pm:194): 194: ${*$sock}{'io_socket_peername'} = undef; IO::Handle::close(lib/IO/Handle.pm:370): 370: @_ == 1 or croak 'usage: $io->close()'; IO::Socket::close(lib/IO/Socket.pm:195): 195: $sock->SUPER::close(); IO::Handle::close(lib/IO/Handle.pm:371): 371: my($io) = @_; IO::Handle::close(lib/IO/Handle.pm:370): 370: @_ == 1 or croak 'usage: $io->close()'; IO::Handle::close(lib/IO/Handle.pm:373): 373: close($io); IO::Handle::close(lib/IO/Handle.pm:371): 371: my($io) = @_; main::(ext\IO\t\io_sock.t:69): waitpid($pid,0); IO::Handle::close(lib/IO/Handle.pm:373): 373: close($io); main::(ext\IO\t\io_sock.t:93): exit; main::(ext\IO\t\io_sock.t:71): print "ok 5\n"; main::(ext\IO\t\io_sock.t:100): $listen = IO::Socket::INET->new(Listen => '', Timeout => 15) or die "$!"; IO::Socket::INET::new(lib/IO/Socket/INET.pm:35): 35: my $class = shift; IO::Socket::INET::new(lib/IO/Socket/INET.pm:36): 36: unshift(@_, "PeerAddr") if @_ == 1; IO::Socket::INET::new(lib/IO/Socket/INET.pm:37): 37: return $class->SUPER::new(@_); IO::Socket::new(lib/IO/Socket.pm:41): 41: my($class,%arg) = @_; IO::Socket::new(lib/IO/Socket.pm:42): 42: my $sock = $class->SUPER::new(); IO::Handle::new(lib/IO/Handle.pm:311): 311: my $class = ref($_[0]) || $_[0] || "IO::Handle"; IO::Handle::new(lib/IO/Handle.pm:312): 312: @_ == 1 or croak "usage: new $class"; IO::Handle::new(lib/IO/Handle.pm:313): 313: my $io = gensym; Symbol::gensym(lib/Symbol.pm:101): my $name = "GEN" . $genseq++; Symbol::gensym(lib/Symbol.pm:102): my $ref = \*{$genpkg . $name}; Symbol::gensym(lib/Symbol.pm:102): my $ref = \*{$genpkg . $name}; Symbol::gensym(lib/Symbol.pm:103): delete $$genpkg{$name}; Symbol::gensym(lib/Symbol.pm:104): $ref; IO::Handle::new(lib/IO/Handle.pm:314): 314: bless $io, $class; IO::Socket::new(lib/IO/Socket.pm:44): 44: $sock->autoflush(1); IO::Handle::autoflush(lib/IO/Handle.pm:479): 479: my $old = new SelectSaver qualify($_[0], caller); Symbol::qualify(lib/Symbol.pm:117): my ($name) = @_; Symbol::qualify(lib/Symbol.pm:118): if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { Symbol::qualify(lib/Symbol.pm:131): $name; SelectSaver::new(lib/SelectSaver.pm:42): 42: @_ >= 1 && @_ <= 2 or croak 'usage: SelectSaver->new( [FILEHANDLE] )'; SelectSaver::new(lib/SelectSaver.pm:43): 43: my $fh = select; SelectSaver::new(lib/SelectSaver.pm:44): 44: my $self = bless \$fh, $_[0]; SelectSaver::new(lib/SelectSaver.pm:45): 45: select qualify($_[1], caller) if @_ > 1; Symbol::qualify(lib/Symbol.pm:117): my ($name) = @_; Symbol::qualify(lib/Symbol.pm:118): if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { Symbol::qualify(lib/Symbol.pm:131): $name; SelectSaver::new(lib/SelectSaver.pm:46): 46: $self; IO::Handle::autoflush(lib/IO/Handle.pm:480): 480: my $prev = $|; IO::Handle::autoflush(lib/IO/Handle.pm:481): 481: $| = @_ > 1 ? $_[1] : 1; IO::Handle::autoflush(lib/IO/Handle.pm:482): 482: $prev; SelectSaver::DESTROY(lib/SelectSaver.pm:50): 50: my $self = $_[0]; SelectSaver::DESTROY(lib/SelectSaver.pm:51): 51: select $$self; IO::Socket::new(lib/IO/Socket.pm:46): 46: ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout}; IO::Socket::new(lib/IO/Socket.pm:46): 46: ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout}; IO::Socket::new(lib/IO/Socket.pm:48): 48: return scalar(%arg) ? $sock->configure(\%arg) 49: : $sock; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:138): 138: my($sock,$arg) = @_; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:139): 139: my($lport,$rport,$laddr,$raddr,$proto,$type); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:142): 142: $arg->{LocalAddr} = $arg->{LocalHost} 143: if exists $arg->{LocalHost} && !exists $arg->{LocalAddr}; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:145): 145: ($laddr,$lport,$proto) = _sock_info($arg->{LocalAddr}, 146: $arg->{LocalPort}, 147: $arg->{Proto}) 148: or return _error($sock, $!, $@); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:73): 73: my($addr,$port,$proto) = @_; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:74): 74: my $origport = $port; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:75): 75: my @serv = (); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:77): 77: $port = $1 78: if(defined $addr && $addr =~ s,:([\w\(\)/]+)$,,); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:80): 80: if(defined $proto && $proto =~ /\D/) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:89): 89: if(defined $port) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:105): 105: return ($addr || undef, 106: $port || undef, 107: $proto || undef 108: ); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:150): 150: $laddr = defined $laddr ? inet_aton($laddr) 151: : INADDR_ANY; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:153): 153: return _error($sock, $EINVAL, "Bad hostname '",$arg->{LocalAddr},"'") 154: unless(defined $laddr); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:156): 156: $arg->{PeerAddr} = $arg->{PeerHost} 157: if exists $arg->{PeerHost} && !exists $arg->{PeerAddr}; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:159): 159: unless(exists $arg->{Listen}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:166): 166: $proto ||= _get_proto_number('tcp'); IO::Socket::INET::_get_proto_number(lib/IO/Socket/INET.pm:49): 49: my $name = lc(shift); IO::Socket::INET::_get_proto_number(lib/IO/Socket/INET.pm:50): 50: return undef unless defined $name; IO::Socket::INET::_get_proto_number(lib/IO/Socket/INET.pm:51): 51: return $proto_number{$name} if exists $proto_number{$name}; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:168): 168: $type = $arg->{Type} || $socket_type{lc _get_proto_name($proto)}; IO::Socket::INET::_get_proto_name(lib/IO/Socket/INET.pm:61): 61: my $num = shift; IO::Socket::INET::_get_proto_name(lib/IO/Socket/INET.pm:62): 62: return undef unless defined $num; IO::Socket::INET::_get_proto_name(lib/IO/Socket/INET.pm:63): 63: return $proto_name{$num} if exists $proto_name{$num}; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:170): 170: my @raddr = (); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:172): 172: if(defined $raddr) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:178): 178: while(1) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:180): 180: $sock->socket(AF_INET, $type, $proto) or 181: return _error($sock, $!, "$!"); IO::Socket::socket(lib/IO/Socket.pm:77): 77: @_ == 4 or croak 'usage: $sock->socket(DOMAIN, TYPE, PROTOCOL)'; IO::Socket::socket(lib/IO/Socket.pm:78): 78: my($sock,$domain,$type,$protocol) = @_; IO::Socket::socket(lib/IO/Socket.pm:80): 80: socket($sock,$domain,$type,$protocol) or 81: return undef; IO::Socket::socket(lib/IO/Socket.pm:83): 83: ${*$sock}{'io_socket_domain'} = $domain; IO::Socket::socket(lib/IO/Socket.pm:83): 83: ${*$sock}{'io_socket_domain'} = $domain; IO::Socket::socket(lib/IO/Socket.pm:84): 84: ${*$sock}{'io_socket_type'} = $type; IO::Socket::socket(lib/IO/Socket.pm:84): 84: ${*$sock}{'io_socket_type'} = $type; IO::Socket::socket(lib/IO/Socket.pm:85): 85: ${*$sock}{'io_socket_proto'} = $protocol; IO::Socket::socket(lib/IO/Socket.pm:85): 85: ${*$sock}{'io_socket_proto'} = $protocol; IO::Socket::socket(lib/IO/Socket.pm:87): 87: $sock; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:183): 183: if (defined $arg->{Blocking}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:188): 188: if ($arg->{Reuse} || $arg->{ReuseAddr}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:193): 193: if ($arg->{ReusePort}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:198): 198: if ($arg->{Broadcast}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:203): 203: if($lport || ($laddr ne INADDR_ANY) || exists $arg->{Listen}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:204): 204: $sock->bind($lport || 0, $laddr) or 205: return _error($sock, $!, "$!"); IO::Socket::INET::bind(lib/IO/Socket/INET.pm:261): 261: @_ == 2 || @_ == 3 or 262: croak 'usage: $sock->bind(NAME) or $sock->bind(PORT, ADDR)'; IO::Socket::INET::bind(lib/IO/Socket/INET.pm:263): 263: my $sock = shift; IO::Socket::INET::bind(lib/IO/Socket/INET.pm:264): 264: return $sock->SUPER::bind(@_ == 1 ? shift : pack_sockaddr_in(@_)) IO::Socket::bind(lib/IO/Socket.pm:199): 199: @_ == 2 or croak 'usage: $sock->bind(NAME)'; IO::Socket::bind(lib/IO/Socket.pm:200): 200: my $sock = shift; IO::Socket::bind(lib/IO/Socket.pm:201): 201: my $addr = shift; IO::Socket::bind(lib/IO/Socket.pm:203): 203: return bind($sock, $addr) ? $sock 204: : undef; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:208): 208: if(exists $arg->{Listen}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:209): 209: $sock->listen($arg->{Listen} || 5) or 210: return _error($sock, $!, "$!"); IO::Socket::listen(lib/IO/Socket.pm:208): 208: @_ >= 1 && @_ <= 2 or croak 'usage: $sock->listen([QUEUE])'; IO::Socket::listen(lib/IO/Socket.pm:209): 209: my($sock,$queue) = @_; IO::Socket::listen(lib/IO/Socket.pm:210): 210: $queue = 5 211: unless $queue && $queue > 0; IO::Socket::listen(lib/IO/Socket.pm:213): 213: return listen($sock, $queue) ? $sock 214: : undef; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:211): 211: last; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:250): 250: $sock; main::(ext\IO\t\io_sock.t:101): $port = $listen->sockport; IO::Socket::INET::sockport(lib/IO/Socket/INET.pm:275): 275: @_ == 1 or croak 'usage: $sock->sockport()'; IO::Socket::INET::sockport(lib/IO/Socket/INET.pm:276): 276: my($sock) = @_; IO::Socket::INET::sockport(lib/IO/Socket/INET.pm:277): 277: my $name = $sock->sockname; IO::Socket::sockname(lib/IO/Socket.pm:245): 245: @_ == 1 or croak 'usage: $sock->sockname()'; IO::Socket::sockname(lib/IO/Socket.pm:246): 246: getsockname($_[0]); IO::Socket::INET::sockport(lib/IO/Socket/INET.pm:278): 278: $name ? (sockaddr_in($name))[0] : undef; Socket::sockaddr_in(lib/Socket.pm:392): 392: if (@_ == 6 && !wantarray) { # perl5.001m compat; use this && die Socket::sockaddr_in(lib/Socket.pm:398): 398: croak "usage: (port,iaddr) = sockaddr_in(sin_sv)" unless @_ == 1; Socket::sockaddr_in(lib/Socket.pm:399): 399: unpack_sockaddr_in(@_); main::(ext\IO\t\io_sock.t:103): if($pid = fork()) { main::(ext\IO\t\io_sock.t:104): SERVER_LOOP: main::(ext\IO\t\io_sock.t:105): while (1) { main::(ext\IO\t\io_sock.t:106): last SERVER_LOOP unless $sock = $listen->accept; IO::Socket::accept(lib/IO/Socket.pm:218): 218: @_ == 1 || @_ == 2 or croak 'usage $sock->accept([PKG])'; IO::Socket::accept(lib/IO/Socket.pm:219): 219: my $sock = shift; IO::Socket::accept(lib/IO/Socket.pm:220): 220: my $pkg = shift || $sock; IO::Socket::accept(lib/IO/Socket.pm:221): 221: my $timeout = ${*$sock}{'io_socket_timeout'}; IO::Socket::accept(lib/IO/Socket.pm:221): 221: my $timeout = ${*$sock}{'io_socket_timeout'}; IO::Socket::accept(lib/IO/Socket.pm:222): 222: my $new = $pkg->new(Timeout => $timeout); IO::Socket::INET::new(lib/IO/Socket/INET.pm:35): 35: my $class = shift; IO::Socket::INET::new(lib/IO/Socket/INET.pm:36): 36: unshift(@_, "PeerAddr") if @_ == 1; IO::Socket::INET::new(lib/IO/Socket/INET.pm:37): 37: return $class->SUPER::new(@_); IO::Socket::new(lib/IO/Socket.pm:41): 41: my($class,%arg) = @_; IO::Socket::new(lib/IO/Socket.pm:42): 42: my $sock = $class->SUPER::new(); IO::Handle::new(lib/IO/Handle.pm:311): 311: my $class = ref($_[0]) || $_[0] || "IO::Handle"; IO::Handle::new(lib/IO/Handle.pm:312): 312: @_ == 1 or croak "usage: new $class"; IO::Handle::new(lib/IO/Handle.pm:313): 313: my $io = gensym; Symbol::gensym(lib/Symbol.pm:101): my $name = "GEN" . $genseq++; Symbol::gensym(lib/Symbol.pm:102): my $ref = \*{$genpkg . $name}; Symbol::gensym(lib/Symbol.pm:102): my $ref = \*{$genpkg . $name}; Symbol::gensym(lib/Symbol.pm:103): delete $$genpkg{$name}; Symbol::gensym(lib/Symbol.pm:104): $ref; IO::Handle::new(lib/IO/Handle.pm:314): 314: bless $io, $class; IO::Socket::new(lib/IO/Socket.pm:44): 44: $sock->autoflush(1); IO::Handle::autoflush(lib/IO/Handle.pm:479): 479: my $old = new SelectSaver qualify($_[0], caller); Symbol::qualify(lib/Symbol.pm:117): my ($name) = @_; Symbol::qualify(lib/Symbol.pm:118): if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { Symbol::qualify(lib/Symbol.pm:131): $name; SelectSaver::new(lib/SelectSaver.pm:42): 42: @_ >= 1 && @_ <= 2 or croak 'usage: SelectSaver->new( [FILEHANDLE] )'; SelectSaver::new(lib/SelectSaver.pm:43): 43: my $fh = select; SelectSaver::new(lib/SelectSaver.pm:44): 44: my $self = bless \$fh, $_[0]; SelectSaver::new(lib/SelectSaver.pm:45): 45: select qualify($_[1], caller) if @_ > 1; Symbol::qualify(lib/Symbol.pm:117): my ($name) = @_; Symbol::qualify(lib/Symbol.pm:118): if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { Symbol::qualify(lib/Symbol.pm:131): $name; SelectSaver::new(lib/SelectSaver.pm:46): 46: $self; IO::Handle::autoflush(lib/IO/Handle.pm:480): 480: my $prev = $|; IO::Handle::autoflush(lib/IO/Handle.pm:481): 481: $| = @_ > 1 ? $_[1] : 1; IO::Handle::autoflush(lib/IO/Handle.pm:482): 482: $prev; SelectSaver::DESTROY(lib/SelectSaver.pm:50): 50: my $self = $_[0]; SelectSaver::DESTROY(lib/SelectSaver.pm:51): 51: select $$self; IO::Socket::new(lib/IO/Socket.pm:46): 46: ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout}; IO::Socket::new(lib/IO/Socket.pm:46): 46: ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout}; IO::Socket::new(lib/IO/Socket.pm:48): 48: return scalar(%arg) ? $sock->configure(\%arg) 49: : $sock; IO::Socket::accept(lib/IO/Socket.pm:223): 223: my $peer = undef; IO::Socket::accept(lib/IO/Socket.pm:225): 225: if(defined $timeout) { IO::Socket::accept(lib/IO/Socket.pm:226): 226: require IO::Select; IO::Socket::accept(lib/IO/Socket.pm:228): 228: my $sel = new IO::Select $sock; IO::Select::new(lib/IO/Select.pm:24): 24: my $self = shift; IO::Select::new(lib/IO/Select.pm:25): 25: my $type = ref($self) || $self; IO::Select::new(lib/IO/Select.pm:27): 27: my $vec = bless [undef,0], $type; IO::Select::new(lib/IO/Select.pm:29): 29: $vec->add(@_) 30: if @_; IO::Select::add(lib/IO/Select.pm:37): 37: shift->_update('add', @_); IO::Select::_update(lib/IO/Select.pm:66): 66: my $vec = shift; IO::Select::_update(lib/IO/Select.pm:67): 67: my $add = shift eq 'add'; IO::Select::_update(lib/IO/Select.pm:69): 69: my $bits = $vec->[VEC_BITS]; IO::Select::_update(lib/IO/Select.pm:70): 70: $bits = '' unless defined $bits; IO::Select::_update(lib/IO/Select.pm:72): 72: my $count = 0; IO::Select::_update(lib/IO/Select.pm:73): 73: my $f; IO::Select::_update(lib/IO/Select.pm:74): 74: foreach $f (@_) 75: { IO::Select::_update(lib/IO/Select.pm:76): 76: my $fn = $vec->_fileno($f); IO::Select::_fileno(lib/IO/Select.pm:58): 58: my($self, $f) = @_; IO::Select::_fileno(lib/IO/Select.pm:59): 59: return unless defined $f; IO::Select::_fileno(lib/IO/Select.pm:60): 60: $f = $f->[0] if ref($f) eq 'ARRAY'; IO::Select::_fileno(lib/IO/Select.pm:61): 61: ($f =~ /^\d+$/) ? $f : fileno($f); IO::Select::_update(lib/IO/Select.pm:77): 77: next unless defined $fn; IO::Select::_update(lib/IO/Select.pm:78): 78: my $i = $fn + FIRST_FD; IO::Select::_update(lib/IO/Select.pm:79): 79: if ($add) { IO::Select::_update(lib/IO/Select.pm:80): 80: if (defined $vec->[$i]) { IO::Select::_update(lib/IO/Select.pm:84): 84: $vec->[FD_COUNT]++; IO::Select::_update(lib/IO/Select.pm:85): 85: vec($bits, $fn, 1) = 1; IO::Select::_update(lib/IO/Select.pm:86): 86: $vec->[$i] = $f; IO::Select::_update(lib/IO/Select.pm:93): 93: $count++; IO::Select::_update(lib/IO/Select.pm:95): 95: $vec->[VEC_BITS] = $vec->[FD_COUNT] ? $bits : undef; IO::Select::_update(lib/IO/Select.pm:96): 96: $count; IO::Select::new(lib/IO/Select.pm:32): 32: $vec; IO::Socket::accept(lib/IO/Socket.pm:230): 230: unless ($sel->can_read($timeout)) { IO::Select::can_read(lib/IO/Select.pm:101): 101: my $vec = shift; IO::Select::can_read(lib/IO/Select.pm:102): 102: my $timeout = shift; IO::Select::can_read(lib/IO/Select.pm:103): 103: my $r = $vec->[VEC_BITS]; IO::Select::can_read(lib/IO/Select.pm:105): 105: defined($r) && (select($r,undef,undef,$timeout) > 0) 106: ? handles($vec, $r) 107: : (); main::(ext\IO\t\io_sock.t:117): $sock = IO::Socket::INET->new("localhost:$port") main::(ext\IO\t\io_sock.t:118): || IO::Socket::INET->new("127.0.0.1:$port"); IO::Socket::INET::new(lib/IO/Socket/INET.pm:35): 35: my $class = shift; IO::Socket::INET::new(lib/IO/Socket/INET.pm:36): 36: unshift(@_, "PeerAddr") if @_ == 1; IO::Socket::INET::new(lib/IO/Socket/INET.pm:37): 37: return $class->SUPER::new(@_); IO::Socket::new(lib/IO/Socket.pm:41): 41: my($class,%arg) = @_; IO::Socket::new(lib/IO/Socket.pm:42): 42: my $sock = $class->SUPER::new(); IO::Handle::new(lib/IO/Handle.pm:311): 311: my $class = ref($_[0]) || $_[0] || "IO::Handle"; IO::Handle::new(lib/IO/Handle.pm:312): 312: @_ == 1 or croak "usage: new $class"; IO::Handle::new(lib/IO/Handle.pm:313): 313: my $io = gensym; Symbol::gensym(lib/Symbol.pm:101): my $name = "GEN" . $genseq++; Symbol::gensym(lib/Symbol.pm:102): my $ref = \*{$genpkg . $name}; Symbol::gensym(lib/Symbol.pm:102): my $ref = \*{$genpkg . $name}; Symbol::gensym(lib/Symbol.pm:103): delete $$genpkg{$name}; Symbol::gensym(lib/Symbol.pm:104): $ref; IO::Handle::new(lib/IO/Handle.pm:314): 314: bless $io, $class; IO::Socket::new(lib/IO/Socket.pm:44): 44: $sock->autoflush(1); IO::Handle::autoflush(lib/IO/Handle.pm:479): 479: my $old = new SelectSaver qualify($_[0], caller); Symbol::qualify(lib/Symbol.pm:117): my ($name) = @_; Symbol::qualify(lib/Symbol.pm:118): if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { Symbol::qualify(lib/Symbol.pm:131): $name; SelectSaver::new(lib/SelectSaver.pm:42): 42: @_ >= 1 && @_ <= 2 or croak 'usage: SelectSaver->new( [FILEHANDLE] )'; SelectSaver::new(lib/SelectSaver.pm:43): 43: my $fh = select; SelectSaver::new(lib/SelectSaver.pm:44): 44: my $self = bless \$fh, $_[0]; SelectSaver::new(lib/SelectSaver.pm:45): 45: select qualify($_[1], caller) if @_ > 1; Symbol::qualify(lib/Symbol.pm:117): my ($name) = @_; Symbol::qualify(lib/Symbol.pm:118): if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { Symbol::qualify(lib/Symbol.pm:131): $name; SelectSaver::new(lib/SelectSaver.pm:46): 46: $self; IO::Handle::autoflush(lib/IO/Handle.pm:480): 480: my $prev = $|; IO::Handle::autoflush(lib/IO/Handle.pm:481): 481: $| = @_ > 1 ? $_[1] : 1; IO::Handle::autoflush(lib/IO/Handle.pm:482): 482: $prev; SelectSaver::DESTROY(lib/SelectSaver.pm:50): 50: my $self = $_[0]; SelectSaver::DESTROY(lib/SelectSaver.pm:51): 51: select $$self; IO::Socket::new(lib/IO/Socket.pm:46): 46: ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout}; IO::Socket::new(lib/IO/Socket.pm:46): 46: ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout}; IO::Socket::new(lib/IO/Socket.pm:48): 48: return scalar(%arg) ? $sock->configure(\%arg) 49: : $sock; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:138): 138: my($sock,$arg) = @_; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:139): 139: my($lport,$rport,$laddr,$raddr,$proto,$type); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:142): 142: $arg->{LocalAddr} = $arg->{LocalHost} 143: if exists $arg->{LocalHost} && !exists $arg->{LocalAddr}; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:145): 145: ($laddr,$lport,$proto) = _sock_info($arg->{LocalAddr}, 146: $arg->{LocalPort}, 147: $arg->{Proto}) 148: or return _error($sock, $!, $@); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:73): 73: my($addr,$port,$proto) = @_; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:74): 74: my $origport = $port; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:75): 75: my @serv = (); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:77): 77: $port = $1 78: if(defined $addr && $addr =~ s,:([\w\(\)/]+)$,,); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:80): 80: if(defined $proto && $proto =~ /\D/) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:89): 89: if(defined $port) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:105): 105: return ($addr || undef, 106: $port || undef, 107: $proto || undef 108: ); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:150): 150: $laddr = defined $laddr ? inet_aton($laddr) 151: : INADDR_ANY; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:153): 153: return _error($sock, $EINVAL, "Bad hostname '",$arg->{LocalAddr},"'") 154: unless(defined $laddr); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:156): 156: $arg->{PeerAddr} = $arg->{PeerHost} 157: if exists $arg->{PeerHost} && !exists $arg->{PeerAddr}; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:159): 159: unless(exists $arg->{Listen}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:160): 160: ($raddr,$rport,$proto) = _sock_info($arg->{PeerAddr}, 161: $arg->{PeerPort}, 162: $proto) 163: or return _error($sock, $!, $@); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:73): 73: my($addr,$port,$proto) = @_; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:74): 74: my $origport = $port; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:75): 75: my @serv = (); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:77): 77: $port = $1 78: if(defined $addr && $addr =~ s,:([\w\(\)/]+)$,,); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:80): 80: if(defined $proto && $proto =~ /\D/) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:89): 89: if(defined $port) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:90): 90: my $defport = ($port =~ s,\((\d+)\)$,,) ? $1 : undef; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:91): 91: my $pnum = ($port =~ m,^(\d+)$,)[0]; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:93): 93: @serv = getservbyname($port, _get_proto_name($proto) || "") 94: if ($port =~ m,\D,); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:96): 96: $port = $serv[2] || $defport || $pnum; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:97): 97: unless (defined $port) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:102): 102: $proto = _get_proto_number($serv[3]) if @serv && !$proto; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:105): 105: return ($addr || undef, 106: $port || undef, 107: $proto || undef 108: ); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:166): 166: $proto ||= _get_proto_number('tcp'); IO::Socket::INET::_get_proto_number(lib/IO/Socket/INET.pm:49): 49: my $name = lc(shift); IO::Socket::INET::_get_proto_number(lib/IO/Socket/INET.pm:50): 50: return undef unless defined $name; IO::Socket::INET::_get_proto_number(lib/IO/Socket/INET.pm:51): 51: return $proto_number{$name} if exists $proto_number{$name}; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:168): 168: $type = $arg->{Type} || $socket_type{lc _get_proto_name($proto)}; IO::Socket::INET::_get_proto_name(lib/IO/Socket/INET.pm:61): 61: my $num = shift; IO::Socket::INET::_get_proto_name(lib/IO/Socket/INET.pm:62): 62: return undef unless defined $num; IO::Socket::INET::_get_proto_name(lib/IO/Socket/INET.pm:63): 63: return $proto_name{$num} if exists $proto_name{$num}; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:170): 170: my @raddr = (); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:172): 172: if(defined $raddr) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:173): 173: @raddr = $sock->_get_addr($raddr, $arg->{MultiHomed}); IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:126): 126: my($sock,$addr_str, $multi) = @_; IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:127): 127: my @addr; IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:128): 128: if ($multi && $addr_str !~ /^\d+(?:\.\d+){3}$/) { IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:131): 131: my $h = inet_aton($addr_str); IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:132): 132: push(@addr, $h) if defined $h; IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:134): 134: @addr; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:174): 174: return _error($sock, $EINVAL, "Bad hostname '",$arg->{PeerAddr},"'") 175: unless @raddr; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:178): 178: while(1) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:180): 180: $sock->socket(AF_INET, $type, $proto) or 181: return _error($sock, $!, "$!"); IO::Socket::socket(lib/IO/Socket.pm:77): 77: @_ == 4 or croak 'usage: $sock->socket(DOMAIN, TYPE, PROTOCOL)'; IO::Socket::socket(lib/IO/Socket.pm:78): 78: my($sock,$domain,$type,$protocol) = @_; IO::Socket::socket(lib/IO/Socket.pm:80): 80: socket($sock,$domain,$type,$protocol) or 81: return undef; IO::Socket::socket(lib/IO/Socket.pm:83): 83: ${*$sock}{'io_socket_domain'} = $domain; IO::Socket::socket(lib/IO/Socket.pm:83): 83: ${*$sock}{'io_socket_domain'} = $domain; IO::Socket::socket(lib/IO/Socket.pm:84): 84: ${*$sock}{'io_socket_type'} = $type; IO::Socket::socket(lib/IO/Socket.pm:84): 84: ${*$sock}{'io_socket_type'} = $type; IO::Socket::socket(lib/IO/Socket.pm:85): 85: ${*$sock}{'io_socket_proto'} = $protocol; IO::Socket::socket(lib/IO/Socket.pm:85): 85: ${*$sock}{'io_socket_proto'} = $protocol; IO::Socket::socket(lib/IO/Socket.pm:87): 87: $sock; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:183): 183: if (defined $arg->{Blocking}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:188): 188: if ($arg->{Reuse} || $arg->{ReuseAddr}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:193): 193: if ($arg->{ReusePort}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:198): 198: if ($arg->{Broadcast}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:203): 203: if($lport || ($laddr ne INADDR_ANY) || exists $arg->{Listen}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:208): 208: if(exists $arg->{Listen}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:215): 215: last unless exists($arg->{PeerAddr}); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:217): 217: $raddr = shift @raddr; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:219): 219: return _error($sock, $EINVAL, 'Cannot determine remote port') 220: unless($rport || $type == SOCK_DGRAM || $type == SOCK_RAW); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:223): 223: unless($type == SOCK_STREAM || defined $raddr); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:225): 225: return _error($sock, $EINVAL, "Bad hostname '",$arg->{PeerAddr},"'") 226: unless defined $raddr; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:231): 231: undef $@; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:232): 232: if ($sock->connect(pack_sockaddr_in($rport, $raddr))) { IO::Socket::INET::connect(lib/IO/Socket/INET.pm:254): 254: @_ == 2 || @_ == 3 or 255: croak 'usage: $sock->connect(NAME) or $sock->connect(PORT, ADDR)'; IO::Socket::INET::connect(lib/IO/Socket/INET.pm:256): 256: my $sock = shift; IO::Socket::INET::connect(lib/IO/Socket/INET.pm:257): 257: return $sock->SUPER::connect(@_ == 1 ? shift : pack_sockaddr_in(@_)); IO::Socket::connect(lib/IO/Socket.pm:106): 106: @_ == 2 or croak 'usage: $sock->connect(NAME)'; IO::Socket::connect(lib/IO/Socket.pm:107): 107: my $sock = shift; IO::Socket::connect(lib/IO/Socket.pm:108): 108: my $addr = shift; IO::Socket::connect(lib/IO/Socket.pm:109): 109: my $timeout = ${*$sock}{'io_socket_timeout'}; IO::Socket::connect(lib/IO/Socket.pm:109): 109: my $timeout = ${*$sock}{'io_socket_timeout'}; IO::Socket::connect(lib/IO/Socket.pm:110): 110: my $err; IO::Socket::connect(lib/IO/Socket.pm:111): 111: my $blocking; IO::Socket::connect(lib/IO/Socket.pm:113): 113: $blocking = $sock->blocking(0) if $timeout; IO::Socket::connect(lib/IO/Socket.pm:114): 114: if (!connect($sock, $addr)) { IO::Select::handles(lib/IO/Select.pm:219): 219: my $vec = shift; IO::Select::handles(lib/IO/Select.pm:220): 220: my $bits = shift; IO::Select::handles(lib/IO/Select.pm:221): 221: my @h = (); IO::Select::handles(lib/IO/Select.pm:222): 222: my $i; IO::Select::handles(lib/IO/Select.pm:223): 223: my $max = scalar(@$vec) - 1; IO::Select::handles(lib/IO/Select.pm:230): 230: } IO::Select::handles(lib/IO/Select.pm:225): 225: for ($i = FIRST_FD; $i <= $max; $i++) 226: { IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Select::handles(lib/IO/Select.pm:228): 228: push(@h, $vec->[$i]) 229: if !defined($bits) || vec($bits, $i - FIRST_FD, 1); IO::Select::handles(lib/IO/Select.pm:232): 232: @h; IO::Socket::accept(lib/IO/Socket.pm:237): 237: $peer = accept($new,$sock) 238: or return; IO::Socket::accept(lib/IO/Socket.pm:240): 240: return wantarray ? ($new, $peer) 241: : $new; main::(ext\IO\t\io_sock.t:107): while (<$sock>) { IO::Socket::connect(lib/IO/Socket.pm:141): 141: $sock->blocking(1) if $blocking; IO::Socket::connect(lib/IO/Socket.pm:143): 143: $! = $err if $err; IO::Socket::connect(lib/IO/Socket.pm:145): 145: $err ? undef : $sock; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:234): 234: return $sock; main::(ext\IO\t\io_sock.t:119): if ($sock) { main::(ext\IO\t\io_sock.t:120): print "not " unless $sock->connected; IO::Socket::connected(lib/IO/Socket.pm:256): 256: @_ == 1 or croak 'usage: $sock->connected()'; IO::Socket::connected(lib/IO/Socket.pm:257): 257: my($sock) = @_; IO::Socket::connected(lib/IO/Socket.pm:258): 258: getpeername($sock); main::(ext\IO\t\io_sock.t:121): print "ok 6\n"; main::(ext\IO\t\io_sock.t:122): $sock->print("ok 7\n"); IO::Handle::print(lib/IO/Handle.pm:404): 404: @_ or croak 'usage: $io->print(ARGS)'; IO::Handle::print(lib/IO/Handle.pm:405): 405: my $this = shift; IO::Handle::print(lib/IO/Handle.pm:406): 406: print $this @_; main::(ext\IO\t\io_sock.t:108): last SERVER_LOOP if /^quit/; main::(ext\IO\t\io_sock.t:109): last if /^done/; main::(ext\IO\t\io_sock.t:110): print; main::(ext\IO\t\io_sock.t:123): sleep(1); main::(ext\IO\t\io_sock.t:124): print "ok 8\n"; main::(ext\IO\t\io_sock.t:125): $sock->print("ok 9\n"); IO::Handle::print(lib/IO/Handle.pm:404): 404: @_ or croak 'usage: $io->print(ARGS)'; IO::Handle::print(lib/IO/Handle.pm:405): 405: my $this = shift; IO::Handle::print(lib/IO/Handle.pm:406): 406: print $this @_; main::(ext\IO\t\io_sock.t:126): $sock->print("done\n"); main::(ext\IO\t\io_sock.t:108): last SERVER_LOOP if /^quit/; IO::Handle::print(lib/IO/Handle.pm:404): 404: @_ or croak 'usage: $io->print(ARGS)'; main::(ext\IO\t\io_sock.t:109): last if /^done/; IO::Handle::print(lib/IO/Handle.pm:405): 405: my $this = shift; main::(ext\IO\t\io_sock.t:110): print; IO::Handle::print(lib/IO/Handle.pm:406): 406: print $this @_; main::(ext\IO\t\io_sock.t:108): last SERVER_LOOP if /^quit/; main::(ext\IO\t\io_sock.t:109): last if /^done/; main::(ext\IO\t\io_sock.t:112): $sock = undef; main::(ext\IO\t\io_sock.t:106): last SERVER_LOOP unless $sock = $listen->accept; IO::Socket::accept(lib/IO/Socket.pm:218): 218: @_ == 1 || @_ == 2 or croak 'usage $sock->accept([PKG])'; IO::Socket::accept(lib/IO/Socket.pm:219): 219: my $sock = shift; IO::Socket::accept(lib/IO/Socket.pm:220): 220: my $pkg = shift || $sock; IO::Socket::accept(lib/IO/Socket.pm:221): 221: my $timeout = ${*$sock}{'io_socket_timeout'}; IO::Socket::accept(lib/IO/Socket.pm:221): 221: my $timeout = ${*$sock}{'io_socket_timeout'}; IO::Socket::accept(lib/IO/Socket.pm:222): 222: my $new = $pkg->new(Timeout => $timeout); IO::Socket::INET::new(lib/IO/Socket/INET.pm:35): 35: my $class = shift; IO::Socket::INET::new(lib/IO/Socket/INET.pm:36): 36: unshift(@_, "PeerAddr") if @_ == 1; IO::Socket::INET::new(lib/IO/Socket/INET.pm:37): 37: return $class->SUPER::new(@_); IO::Socket::new(lib/IO/Socket.pm:41): 41: my($class,%arg) = @_; IO::Socket::new(lib/IO/Socket.pm:42): 42: my $sock = $class->SUPER::new(); IO::Handle::new(lib/IO/Handle.pm:311): 311: my $class = ref($_[0]) || $_[0] || "IO::Handle"; IO::Handle::new(lib/IO/Handle.pm:312): 312: @_ == 1 or croak "usage: new $class"; IO::Handle::new(lib/IO/Handle.pm:313): 313: my $io = gensym; Symbol::gensym(lib/Symbol.pm:101): my $name = "GEN" . $genseq++; Symbol::gensym(lib/Symbol.pm:102): my $ref = \*{$genpkg . $name}; Symbol::gensym(lib/Symbol.pm:102): my $ref = \*{$genpkg . $name}; Symbol::gensym(lib/Symbol.pm:103): delete $$genpkg{$name}; Symbol::gensym(lib/Symbol.pm:104): $ref; IO::Handle::new(lib/IO/Handle.pm:314): 314: bless $io, $class; IO::Socket::new(lib/IO/Socket.pm:44): 44: $sock->autoflush(1); IO::Handle::autoflush(lib/IO/Handle.pm:479): 479: my $old = new SelectSaver qualify($_[0], caller); Symbol::qualify(lib/Symbol.pm:117): my ($name) = @_; Symbol::qualify(lib/Symbol.pm:118): if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { Symbol::qualify(lib/Symbol.pm:131): $name; SelectSaver::new(lib/SelectSaver.pm:42): 42: @_ >= 1 && @_ <= 2 or croak 'usage: SelectSaver->new( [FILEHANDLE] )'; SelectSaver::new(lib/SelectSaver.pm:43): 43: my $fh = select; SelectSaver::new(lib/SelectSaver.pm:44): 44: my $self = bless \$fh, $_[0]; SelectSaver::new(lib/SelectSaver.pm:45): 45: select qualify($_[1], caller) if @_ > 1; Symbol::qualify(lib/Symbol.pm:117): my ($name) = @_; Symbol::qualify(lib/Symbol.pm:118): if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { Symbol::qualify(lib/Symbol.pm:131): $name; SelectSaver::new(lib/SelectSaver.pm:46): 46: $self; IO::Handle::autoflush(lib/IO/Handle.pm:480): 480: my $prev = $|; IO::Handle::autoflush(lib/IO/Handle.pm:481): 481: $| = @_ > 1 ? $_[1] : 1; IO::Handle::autoflush(lib/IO/Handle.pm:482): 482: $prev; SelectSaver::DESTROY(lib/SelectSaver.pm:50): 50: my $self = $_[0]; SelectSaver::DESTROY(lib/SelectSaver.pm:51): 51: select $$self; IO::Socket::new(lib/IO/Socket.pm:46): 46: ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout}; IO::Socket::new(lib/IO/Socket.pm:46): 46: ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout}; IO::Socket::new(lib/IO/Socket.pm:48): 48: return scalar(%arg) ? $sock->configure(\%arg) 49: : $sock; IO::Socket::accept(lib/IO/Socket.pm:223): 223: my $peer = undef; IO::Socket::accept(lib/IO/Socket.pm:225): 225: if(defined $timeout) { IO::Socket::accept(lib/IO/Socket.pm:226): 226: require IO::Select; IO::Socket::accept(lib/IO/Socket.pm:228): 228: my $sel = new IO::Select $sock; IO::Select::new(lib/IO/Select.pm:24): 24: my $self = shift; IO::Select::new(lib/IO/Select.pm:25): 25: my $type = ref($self) || $self; IO::Select::new(lib/IO/Select.pm:27): 27: my $vec = bless [undef,0], $type; IO::Select::new(lib/IO/Select.pm:29): 29: $vec->add(@_) 30: if @_; IO::Select::add(lib/IO/Select.pm:37): 37: shift->_update('add', @_); IO::Select::_update(lib/IO/Select.pm:66): 66: my $vec = shift; IO::Select::_update(lib/IO/Select.pm:67): 67: my $add = shift eq 'add'; IO::Select::_update(lib/IO/Select.pm:69): 69: my $bits = $vec->[VEC_BITS]; IO::Select::_update(lib/IO/Select.pm:70): 70: $bits = '' unless defined $bits; IO::Select::_update(lib/IO/Select.pm:72): 72: my $count = 0; IO::Select::_update(lib/IO/Select.pm:73): 73: my $f; IO::Select::_update(lib/IO/Select.pm:74): 74: foreach $f (@_) 75: { IO::Select::_update(lib/IO/Select.pm:76): 76: my $fn = $vec->_fileno($f); IO::Select::_fileno(lib/IO/Select.pm:58): 58: my($self, $f) = @_; IO::Select::_fileno(lib/IO/Select.pm:59): 59: return unless defined $f; IO::Select::_fileno(lib/IO/Select.pm:60): 60: $f = $f->[0] if ref($f) eq 'ARRAY'; IO::Select::_fileno(lib/IO/Select.pm:61): 61: ($f =~ /^\d+$/) ? $f : fileno($f); IO::Select::_update(lib/IO/Select.pm:77): 77: next unless defined $fn; IO::Select::_update(lib/IO/Select.pm:78): 78: my $i = $fn + FIRST_FD; IO::Select::_update(lib/IO/Select.pm:79): 79: if ($add) { IO::Select::_update(lib/IO/Select.pm:80): 80: if (defined $vec->[$i]) { IO::Select::_update(lib/IO/Select.pm:84): 84: $vec->[FD_COUNT]++; IO::Select::_update(lib/IO/Select.pm:85): 85: vec($bits, $fn, 1) = 1; IO::Select::_update(lib/IO/Select.pm:86): 86: $vec->[$i] = $f; IO::Select::_update(lib/IO/Select.pm:93): 93: $count++; IO::Select::_update(lib/IO/Select.pm:95): 95: $vec->[VEC_BITS] = $vec->[FD_COUNT] ? $bits : undef; IO::Select::_update(lib/IO/Select.pm:96): 96: $count; IO::Select::new(lib/IO/Select.pm:32): 32: $vec; IO::Socket::accept(lib/IO/Socket.pm:230): 230: unless ($sel->can_read($timeout)) { IO::Select::can_read(lib/IO/Select.pm:101): 101: my $vec = shift; IO::Select::can_read(lib/IO/Select.pm:102): 102: my $timeout = shift; IO::Select::can_read(lib/IO/Select.pm:103): 103: my $r = $vec->[VEC_BITS]; IO::Select::can_read(lib/IO/Select.pm:105): 105: defined($r) && (select($r,undef,undef,$timeout) > 0) 106: ? handles($vec, $r) 107: : (); main::(ext\IO\t\io_sock.t:127): $sock->close; IO::Socket::close(lib/IO/Socket.pm:192): 192: @_ == 1 or croak 'usage: $sock->close()'; IO::Socket::close(lib/IO/Socket.pm:193): 193: my $sock = shift; IO::Socket::close(lib/IO/Socket.pm:194): 194: ${*$sock}{'io_socket_peername'} = undef; IO::Socket::close(lib/IO/Socket.pm:194): 194: ${*$sock}{'io_socket_peername'} = undef; IO::Socket::close(lib/IO/Socket.pm:195): 195: $sock->SUPER::close(); IO::Handle::close(lib/IO/Handle.pm:370): 370: @_ == 1 or croak 'usage: $io->close()'; IO::Handle::close(lib/IO/Handle.pm:371): 371: my($io) = @_; IO::Handle::close(lib/IO/Handle.pm:373): 373: close($io); main::(ext\IO\t\io_sock.t:138): sleep(2); main::(ext\IO\t\io_sock.t:140): $sock = IO::Socket::INET->new("127.0.0.1:$port"); IO::Socket::INET::new(lib/IO/Socket/INET.pm:35): 35: my $class = shift; IO::Socket::INET::new(lib/IO/Socket/INET.pm:36): 36: unshift(@_, "PeerAddr") if @_ == 1; IO::Socket::INET::new(lib/IO/Socket/INET.pm:37): 37: return $class->SUPER::new(@_); IO::Socket::new(lib/IO/Socket.pm:41): 41: my($class,%arg) = @_; IO::Socket::new(lib/IO/Socket.pm:42): 42: my $sock = $class->SUPER::new(); IO::Handle::new(lib/IO/Handle.pm:311): 311: my $class = ref($_[0]) || $_[0] || "IO::Handle"; IO::Handle::new(lib/IO/Handle.pm:312): 312: @_ == 1 or croak "usage: new $class"; IO::Handle::new(lib/IO/Handle.pm:313): 313: my $io = gensym; Symbol::gensym(lib/Symbol.pm:101): my $name = "GEN" . $genseq++; Symbol::gensym(lib/Symbol.pm:102): my $ref = \*{$genpkg . $name}; Symbol::gensym(lib/Symbol.pm:102): my $ref = \*{$genpkg . $name}; Symbol::gensym(lib/Symbol.pm:103): delete $$genpkg{$name}; Symbol::gensym(lib/Symbol.pm:104): $ref; IO::Handle::new(lib/IO/Handle.pm:314): 314: bless $io, $class; IO::Socket::new(lib/IO/Socket.pm:44): 44: $sock->autoflush(1); IO::Handle::autoflush(lib/IO/Handle.pm:479): 479: my $old = new SelectSaver qualify($_[0], caller); Symbol::qualify(lib/Symbol.pm:117): my ($name) = @_; Symbol::qualify(lib/Symbol.pm:118): if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { Symbol::qualify(lib/Symbol.pm:131): $name; SelectSaver::new(lib/SelectSaver.pm:42): 42: @_ >= 1 && @_ <= 2 or croak 'usage: SelectSaver->new( [FILEHANDLE] )'; SelectSaver::new(lib/SelectSaver.pm:43): 43: my $fh = select; SelectSaver::new(lib/SelectSaver.pm:44): 44: my $self = bless \$fh, $_[0]; SelectSaver::new(lib/SelectSaver.pm:45): 45: select qualify($_[1], caller) if @_ > 1; Symbol::qualify(lib/Symbol.pm:117): my ($name) = @_; Symbol::qualify(lib/Symbol.pm:118): if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { Symbol::qualify(lib/Symbol.pm:131): $name; SelectSaver::new(lib/SelectSaver.pm:46): 46: $self; IO::Handle::autoflush(lib/IO/Handle.pm:480): 480: my $prev = $|; IO::Handle::autoflush(lib/IO/Handle.pm:481): 481: $| = @_ > 1 ? $_[1] : 1; IO::Handle::autoflush(lib/IO/Handle.pm:482): 482: $prev; SelectSaver::DESTROY(lib/SelectSaver.pm:50): 50: my $self = $_[0]; SelectSaver::DESTROY(lib/SelectSaver.pm:51): 51: select $$self; IO::Socket::new(lib/IO/Socket.pm:46): 46: ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout}; IO::Socket::new(lib/IO/Socket.pm:46): 46: ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout}; IO::Socket::new(lib/IO/Socket.pm:48): 48: return scalar(%arg) ? $sock->configure(\%arg) 49: : $sock; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:138): 138: my($sock,$arg) = @_; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:139): 139: my($lport,$rport,$laddr,$raddr,$proto,$type); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:142): 142: $arg->{LocalAddr} = $arg->{LocalHost} 143: if exists $arg->{LocalHost} && !exists $arg->{LocalAddr}; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:145): 145: ($laddr,$lport,$proto) = _sock_info($arg->{LocalAddr}, 146: $arg->{LocalPort}, 147: $arg->{Proto}) 148: or return _error($sock, $!, $@); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:73): 73: my($addr,$port,$proto) = @_; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:74): 74: my $origport = $port; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:75): 75: my @serv = (); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:77): 77: $port = $1 78: if(defined $addr && $addr =~ s,:([\w\(\)/]+)$,,); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:80): 80: if(defined $proto && $proto =~ /\D/) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:89): 89: if(defined $port) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:105): 105: return ($addr || undef, 106: $port || undef, 107: $proto || undef 108: ); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:150): 150: $laddr = defined $laddr ? inet_aton($laddr) 151: : INADDR_ANY; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:153): 153: return _error($sock, $EINVAL, "Bad hostname '",$arg->{LocalAddr},"'") 154: unless(defined $laddr); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:156): 156: $arg->{PeerAddr} = $arg->{PeerHost} 157: if exists $arg->{PeerHost} && !exists $arg->{PeerAddr}; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:159): 159: unless(exists $arg->{Listen}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:160): 160: ($raddr,$rport,$proto) = _sock_info($arg->{PeerAddr}, 161: $arg->{PeerPort}, 162: $proto) 163: or return _error($sock, $!, $@); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:73): 73: my($addr,$port,$proto) = @_; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:74): 74: my $origport = $port; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:75): 75: my @serv = (); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:77): 77: $port = $1 78: if(defined $addr && $addr =~ s,:([\w\(\)/]+)$,,); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:80): 80: if(defined $proto && $proto =~ /\D/) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:89): 89: if(defined $port) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:90): 90: my $defport = ($port =~ s,\((\d+)\)$,,) ? $1 : undef; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:91): 91: my $pnum = ($port =~ m,^(\d+)$,)[0]; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:93): 93: @serv = getservbyname($port, _get_proto_name($proto) || "") 94: if ($port =~ m,\D,); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:96): 96: $port = $serv[2] || $defport || $pnum; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:97): 97: unless (defined $port) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:102): 102: $proto = _get_proto_number($serv[3]) if @serv && !$proto; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:105): 105: return ($addr || undef, 106: $port || undef, 107: $proto || undef 108: ); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:166): 166: $proto ||= _get_proto_number('tcp'); IO::Socket::INET::_get_proto_number(lib/IO/Socket/INET.pm:49): 49: my $name = lc(shift); IO::Socket::INET::_get_proto_number(lib/IO/Socket/INET.pm:50): 50: return undef unless defined $name; IO::Socket::INET::_get_proto_number(lib/IO/Socket/INET.pm:51): 51: return $proto_number{$name} if exists $proto_number{$name}; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:168): 168: $type = $arg->{Type} || $socket_type{lc _get_proto_name($proto)}; IO::Socket::INET::_get_proto_name(lib/IO/Socket/INET.pm:61): 61: my $num = shift; IO::Socket::INET::_get_proto_name(lib/IO/Socket/INET.pm:62): 62: return undef unless defined $num; IO::Socket::INET::_get_proto_name(lib/IO/Socket/INET.pm:63): 63: return $proto_name{$num} if exists $proto_name{$num}; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:170): 170: my @raddr = (); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:172): 172: if(defined $raddr) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:173): 173: @raddr = $sock->_get_addr($raddr, $arg->{MultiHomed}); IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:126): 126: my($sock,$addr_str, $multi) = @_; IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:127): 127: my @addr; IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:128): 128: if ($multi && $addr_str !~ /^\d+(?:\.\d+){3}$/) { IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:131): 131: my $h = inet_aton($addr_str); IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:132): 132: push(@addr, $h) if defined $h; IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:134): 134: @addr; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:174): 174: return _error($sock, $EINVAL, "Bad hostname '",$arg->{PeerAddr},"'") 175: unless @raddr; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:178): 178: while(1) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:180): 180: $sock->socket(AF_INET, $type, $proto) or 181: return _error($sock, $!, "$!"); IO::Socket::socket(lib/IO/Socket.pm:77): 77: @_ == 4 or croak 'usage: $sock->socket(DOMAIN, TYPE, PROTOCOL)'; IO::Socket::socket(lib/IO/Socket.pm:78): 78: my($sock,$domain,$type,$protocol) = @_; IO::Socket::socket(lib/IO/Socket.pm:80): 80: socket($sock,$domain,$type,$protocol) or 81: return undef; IO::Socket::socket(lib/IO/Socket.pm:83): 83: ${*$sock}{'io_socket_domain'} = $domain; IO::Socket::socket(lib/IO/Socket.pm:83): 83: ${*$sock}{'io_socket_domain'} = $domain; IO::Socket::socket(lib/IO/Socket.pm:84): 84: ${*$sock}{'io_socket_type'} = $type; IO::Socket::socket(lib/IO/Socket.pm:84): 84: ${*$sock}{'io_socket_type'} = $type; IO::Socket::socket(lib/IO/Socket.pm:85): 85: ${*$sock}{'io_socket_proto'} = $protocol; IO::Socket::socket(lib/IO/Socket.pm:85): 85: ${*$sock}{'io_socket_proto'} = $protocol; IO::Socket::socket(lib/IO/Socket.pm:87): 87: $sock; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:183): 183: if (defined $arg->{Blocking}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:188): 188: if ($arg->{Reuse} || $arg->{ReuseAddr}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:193): 193: if ($arg->{ReusePort}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:198): 198: if ($arg->{Broadcast}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:203): 203: if($lport || ($laddr ne INADDR_ANY) || exists $arg->{Listen}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:208): 208: if(exists $arg->{Listen}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:215): 215: last unless exists($arg->{PeerAddr}); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:217): 217: $raddr = shift @raddr; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:219): 219: return _error($sock, $EINVAL, 'Cannot determine remote port') 220: unless($rport || $type == SOCK_DGRAM || $type == SOCK_RAW); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:223): 223: unless($type == SOCK_STREAM || defined $raddr); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:225): 225: return _error($sock, $EINVAL, "Bad hostname '",$arg->{PeerAddr},"'") 226: unless defined $raddr; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:231): 231: undef $@; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:232): 232: if ($sock->connect(pack_sockaddr_in($rport, $raddr))) { IO::Socket::INET::connect(lib/IO/Socket/INET.pm:254): 254: @_ == 2 || @_ == 3 or 255: croak 'usage: $sock->connect(NAME) or $sock->connect(PORT, ADDR)'; IO::Socket::INET::connect(lib/IO/Socket/INET.pm:256): 256: my $sock = shift; IO::Socket::INET::connect(lib/IO/Socket/INET.pm:257): 257: return $sock->SUPER::connect(@_ == 1 ? shift : pack_sockaddr_in(@_)); IO::Socket::connect(lib/IO/Socket.pm:106): 106: @_ == 2 or croak 'usage: $sock->connect(NAME)'; IO::Socket::connect(lib/IO/Socket.pm:107): 107: my $sock = shift; IO::Socket::connect(lib/IO/Socket.pm:108): 108: my $addr = shift; IO::Socket::connect(lib/IO/Socket.pm:109): 109: my $timeout = ${*$sock}{'io_socket_timeout'}; IO::Socket::connect(lib/IO/Socket.pm:109): 109: my $timeout = ${*$sock}{'io_socket_timeout'}; IO::Socket::connect(lib/IO/Socket.pm:110): 110: my $err; IO::Socket::connect(lib/IO/Socket.pm:111): 111: my $blocking; IO::Socket::connect(lib/IO/Socket.pm:113): 113: $blocking = $sock->blocking(0) if $timeout; IO::Socket::connect(lib/IO/Socket.pm:114): 114: if (!connect($sock, $addr)) { IO::Socket::connect(lib/IO/Socket.pm:141): 141: $sock->blocking(1) if $blocking; IO::Select::handles(lib/IO/Select.pm:219): 219: my $vec = shift; IO::Socket::connect(lib/IO/Socket.pm:143): 143: $! = $err if $err; IO::Select::handles(lib/IO/Select.pm:220): 220: my $bits = shift; IO::Socket::connect(lib/IO/Socket.pm:145): 145: $err ? undef : $sock; IO::Select::handles(lib/IO/Select.pm:221): 221: my @h = (); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:234): 234: return $sock; IO::Select::handles(lib/IO/Select.pm:222): 222: my $i; main::(ext\IO\t\io_sock.t:141): if ($sock) { IO::Select::handles(lib/IO/Select.pm:223): 223: my $max = scalar(@$vec) - 1; main::(ext\IO\t\io_sock.t:142): $sock->print("ok 10\n"); IO::Select::handles(lib/IO/Select.pm:230): 230: } IO::Handle::print(lib/IO/Handle.pm:404): 404: @_ or croak 'usage: $io->print(ARGS)'; IO::Select::handles(lib/IO/Select.pm:225): 225: for ($i = FIRST_FD; $i <= $max; $i++) 226: { IO::Handle::print(lib/IO/Handle.pm:405): 405: my $this = shift; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Handle::print(lib/IO/Handle.pm:406): 406: print $this @_; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; main::(ext\IO\t\io_sock.t:143): $sock->print("done\n"); IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Handle::print(lib/IO/Handle.pm:404): 404: @_ or croak 'usage: $io->print(ARGS)'; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Handle::print(lib/IO/Handle.pm:405): 405: my $this = shift; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Handle::print(lib/IO/Handle.pm:406): 406: print $this @_; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; main::(ext\IO\t\io_sock.t:144): $sock->close; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Socket::close(lib/IO/Socket.pm:192): 192: @_ == 1 or croak 'usage: $sock->close()'; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Socket::close(lib/IO/Socket.pm:193): 193: my $sock = shift; IO::Select::handles(lib/IO/Select.pm:228): 228: push(@h, $vec->[$i]) 229: if !defined($bits) || vec($bits, $i - FIRST_FD, 1); IO::Socket::close(lib/IO/Socket.pm:194): 194: ${*$sock}{'io_socket_peername'} = undef; IO::Select::handles(lib/IO/Select.pm:232): 232: @h; IO::Socket::close(lib/IO/Socket.pm:194): 194: ${*$sock}{'io_socket_peername'} = undef; IO::Socket::accept(lib/IO/Socket.pm:237): 237: $peer = accept($new,$sock) 238: or return; IO::Socket::close(lib/IO/Socket.pm:195): 195: $sock->SUPER::close(); IO::Handle::close(lib/IO/Handle.pm:370): 370: @_ == 1 or croak 'usage: $io->close()'; IO::Handle::close(lib/IO/Handle.pm:371): 371: my($io) = @_; IO::Socket::accept(lib/IO/Socket.pm:240): 240: return wantarray ? ($new, $peer) 241: : $new; IO::Handle::close(lib/IO/Handle.pm:373): 373: close($io); main::(ext\IO\t\io_sock.t:107): while (<$sock>) { main::(ext\IO\t\io_sock.t:152): sleep(1); main::(ext\IO\t\io_sock.t:108): last SERVER_LOOP if /^quit/; main::(ext\IO\t\io_sock.t:109): last if /^done/; main::(ext\IO\t\io_sock.t:110): print; main::(ext\IO\t\io_sock.t:108): last SERVER_LOOP if /^quit/; main::(ext\IO\t\io_sock.t:109): last if /^done/; main::(ext\IO\t\io_sock.t:112): $sock = undef; main::(ext\IO\t\io_sock.t:106): last SERVER_LOOP unless $sock = $listen->accept; IO::Socket::accept(lib/IO/Socket.pm:218): 218: @_ == 1 || @_ == 2 or croak 'usage $sock->accept([PKG])'; IO::Socket::accept(lib/IO/Socket.pm:219): 219: my $sock = shift; IO::Socket::accept(lib/IO/Socket.pm:220): 220: my $pkg = shift || $sock; IO::Socket::accept(lib/IO/Socket.pm:221): 221: my $timeout = ${*$sock}{'io_socket_timeout'}; IO::Socket::accept(lib/IO/Socket.pm:221): 221: my $timeout = ${*$sock}{'io_socket_timeout'}; IO::Socket::accept(lib/IO/Socket.pm:222): 222: my $new = $pkg->new(Timeout => $timeout); IO::Socket::INET::new(lib/IO/Socket/INET.pm:35): 35: my $class = shift; IO::Socket::INET::new(lib/IO/Socket/INET.pm:36): 36: unshift(@_, "PeerAddr") if @_ == 1; IO::Socket::INET::new(lib/IO/Socket/INET.pm:37): 37: return $class->SUPER::new(@_); IO::Socket::new(lib/IO/Socket.pm:41): 41: my($class,%arg) = @_; IO::Socket::new(lib/IO/Socket.pm:42): 42: my $sock = $class->SUPER::new(); IO::Handle::new(lib/IO/Handle.pm:311): 311: my $class = ref($_[0]) || $_[0] || "IO::Handle"; IO::Handle::new(lib/IO/Handle.pm:312): 312: @_ == 1 or croak "usage: new $class"; IO::Handle::new(lib/IO/Handle.pm:313): 313: my $io = gensym; Symbol::gensym(lib/Symbol.pm:101): my $name = "GEN" . $genseq++; Symbol::gensym(lib/Symbol.pm:102): my $ref = \*{$genpkg . $name}; Symbol::gensym(lib/Symbol.pm:102): my $ref = \*{$genpkg . $name}; Symbol::gensym(lib/Symbol.pm:103): delete $$genpkg{$name}; Symbol::gensym(lib/Symbol.pm:104): $ref; IO::Handle::new(lib/IO/Handle.pm:314): 314: bless $io, $class; IO::Socket::new(lib/IO/Socket.pm:44): 44: $sock->autoflush(1); IO::Handle::autoflush(lib/IO/Handle.pm:479): 479: my $old = new SelectSaver qualify($_[0], caller); Symbol::qualify(lib/Symbol.pm:117): my ($name) = @_; Symbol::qualify(lib/Symbol.pm:118): if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { Symbol::qualify(lib/Symbol.pm:131): $name; SelectSaver::new(lib/SelectSaver.pm:42): 42: @_ >= 1 && @_ <= 2 or croak 'usage: SelectSaver->new( [FILEHANDLE] )'; SelectSaver::new(lib/SelectSaver.pm:43): 43: my $fh = select; SelectSaver::new(lib/SelectSaver.pm:44): 44: my $self = bless \$fh, $_[0]; SelectSaver::new(lib/SelectSaver.pm:45): 45: select qualify($_[1], caller) if @_ > 1; Symbol::qualify(lib/Symbol.pm:117): my ($name) = @_; Symbol::qualify(lib/Symbol.pm:118): if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { Symbol::qualify(lib/Symbol.pm:131): $name; SelectSaver::new(lib/SelectSaver.pm:46): 46: $self; IO::Handle::autoflush(lib/IO/Handle.pm:480): 480: my $prev = $|; IO::Handle::autoflush(lib/IO/Handle.pm:481): 481: $| = @_ > 1 ? $_[1] : 1; IO::Handle::autoflush(lib/IO/Handle.pm:482): 482: $prev; SelectSaver::DESTROY(lib/SelectSaver.pm:50): 50: my $self = $_[0]; SelectSaver::DESTROY(lib/SelectSaver.pm:51): 51: select $$self; IO::Socket::new(lib/IO/Socket.pm:46): 46: ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout}; IO::Socket::new(lib/IO/Socket.pm:46): 46: ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout}; IO::Socket::new(lib/IO/Socket.pm:48): 48: return scalar(%arg) ? $sock->configure(\%arg) 49: : $sock; IO::Socket::accept(lib/IO/Socket.pm:223): 223: my $peer = undef; IO::Socket::accept(lib/IO/Socket.pm:225): 225: if(defined $timeout) { IO::Socket::accept(lib/IO/Socket.pm:226): 226: require IO::Select; IO::Socket::accept(lib/IO/Socket.pm:228): 228: my $sel = new IO::Select $sock; IO::Select::new(lib/IO/Select.pm:24): 24: my $self = shift; IO::Select::new(lib/IO/Select.pm:25): 25: my $type = ref($self) || $self; IO::Select::new(lib/IO/Select.pm:27): 27: my $vec = bless [undef,0], $type; IO::Select::new(lib/IO/Select.pm:29): 29: $vec->add(@_) 30: if @_; IO::Select::add(lib/IO/Select.pm:37): 37: shift->_update('add', @_); IO::Select::_update(lib/IO/Select.pm:66): 66: my $vec = shift; IO::Select::_update(lib/IO/Select.pm:67): 67: my $add = shift eq 'add'; IO::Select::_update(lib/IO/Select.pm:69): 69: my $bits = $vec->[VEC_BITS]; IO::Select::_update(lib/IO/Select.pm:70): 70: $bits = '' unless defined $bits; IO::Select::_update(lib/IO/Select.pm:72): 72: my $count = 0; IO::Select::_update(lib/IO/Select.pm:73): 73: my $f; IO::Select::_update(lib/IO/Select.pm:74): 74: foreach $f (@_) 75: { IO::Select::_update(lib/IO/Select.pm:76): 76: my $fn = $vec->_fileno($f); IO::Select::_fileno(lib/IO/Select.pm:58): 58: my($self, $f) = @_; IO::Select::_fileno(lib/IO/Select.pm:59): 59: return unless defined $f; IO::Select::_fileno(lib/IO/Select.pm:60): 60: $f = $f->[0] if ref($f) eq 'ARRAY'; IO::Select::_fileno(lib/IO/Select.pm:61): 61: ($f =~ /^\d+$/) ? $f : fileno($f); IO::Select::_update(lib/IO/Select.pm:77): 77: next unless defined $fn; IO::Select::_update(lib/IO/Select.pm:78): 78: my $i = $fn + FIRST_FD; IO::Select::_update(lib/IO/Select.pm:79): 79: if ($add) { IO::Select::_update(lib/IO/Select.pm:80): 80: if (defined $vec->[$i]) { IO::Select::_update(lib/IO/Select.pm:84): 84: $vec->[FD_COUNT]++; IO::Select::_update(lib/IO/Select.pm:85): 85: vec($bits, $fn, 1) = 1; IO::Select::_update(lib/IO/Select.pm:86): 86: $vec->[$i] = $f; IO::Select::_update(lib/IO/Select.pm:93): 93: $count++; IO::Select::_update(lib/IO/Select.pm:95): 95: $vec->[VEC_BITS] = $vec->[FD_COUNT] ? $bits : undef; IO::Select::_update(lib/IO/Select.pm:96): 96: $count; IO::Select::new(lib/IO/Select.pm:32): 32: $vec; IO::Socket::accept(lib/IO/Socket.pm:230): 230: unless ($sel->can_read($timeout)) { IO::Select::can_read(lib/IO/Select.pm:101): 101: my $vec = shift; IO::Select::can_read(lib/IO/Select.pm:102): 102: my $timeout = shift; IO::Select::can_read(lib/IO/Select.pm:103): 103: my $r = $vec->[VEC_BITS]; IO::Select::can_read(lib/IO/Select.pm:105): 105: defined($r) && (select($r,undef,undef,$timeout) > 0) 106: ? handles($vec, $r) 107: : (); main::(ext\IO\t\io_sock.t:154): $sock = IO::Socket->new(Domain => AF_INET, main::(ext\IO\t\io_sock.t:155): PeerAddr => "localhost:$port") main::(ext\IO\t\io_sock.t:156): || IO::Socket->new(Domain => AF_INET, main::(ext\IO\t\io_sock.t:157): PeerAddr => "127.0.0.1:$port"); IO::Socket::new(lib/IO/Socket.pm:41): 41: my($class,%arg) = @_; IO::Socket::new(lib/IO/Socket.pm:42): 42: my $sock = $class->SUPER::new(); IO::Handle::new(lib/IO/Handle.pm:311): 311: my $class = ref($_[0]) || $_[0] || "IO::Handle"; IO::Handle::new(lib/IO/Handle.pm:312): 312: @_ == 1 or croak "usage: new $class"; IO::Handle::new(lib/IO/Handle.pm:313): 313: my $io = gensym; Symbol::gensym(lib/Symbol.pm:101): my $name = "GEN" . $genseq++; Symbol::gensym(lib/Symbol.pm:102): my $ref = \*{$genpkg . $name}; Symbol::gensym(lib/Symbol.pm:102): my $ref = \*{$genpkg . $name}; Symbol::gensym(lib/Symbol.pm:103): delete $$genpkg{$name}; Symbol::gensym(lib/Symbol.pm:104): $ref; IO::Handle::new(lib/IO/Handle.pm:314): 314: bless $io, $class; IO::Socket::new(lib/IO/Socket.pm:44): 44: $sock->autoflush(1); IO::Handle::autoflush(lib/IO/Handle.pm:479): 479: my $old = new SelectSaver qualify($_[0], caller); Symbol::qualify(lib/Symbol.pm:117): my ($name) = @_; Symbol::qualify(lib/Symbol.pm:118): if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { Symbol::qualify(lib/Symbol.pm:131): $name; SelectSaver::new(lib/SelectSaver.pm:42): 42: @_ >= 1 && @_ <= 2 or croak 'usage: SelectSaver->new( [FILEHANDLE] )'; SelectSaver::new(lib/SelectSaver.pm:43): 43: my $fh = select; SelectSaver::new(lib/SelectSaver.pm:44): 44: my $self = bless \$fh, $_[0]; SelectSaver::new(lib/SelectSaver.pm:45): 45: select qualify($_[1], caller) if @_ > 1; Symbol::qualify(lib/Symbol.pm:117): my ($name) = @_; Symbol::qualify(lib/Symbol.pm:118): if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { Symbol::qualify(lib/Symbol.pm:131): $name; SelectSaver::new(lib/SelectSaver.pm:46): 46: $self; IO::Handle::autoflush(lib/IO/Handle.pm:480): 480: my $prev = $|; IO::Handle::autoflush(lib/IO/Handle.pm:481): 481: $| = @_ > 1 ? $_[1] : 1; IO::Handle::autoflush(lib/IO/Handle.pm:482): 482: $prev; SelectSaver::DESTROY(lib/SelectSaver.pm:50): 50: my $self = $_[0]; SelectSaver::DESTROY(lib/SelectSaver.pm:51): 51: select $$self; IO::Socket::new(lib/IO/Socket.pm:46): 46: ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout}; IO::Socket::new(lib/IO/Socket.pm:46): 46: ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout}; IO::Socket::new(lib/IO/Socket.pm:48): 48: return scalar(%arg) ? $sock->configure(\%arg) 49: : $sock; IO::Socket::configure(lib/IO/Socket.pm:60): 60: my($sock,$arg) = @_; IO::Socket::configure(lib/IO/Socket.pm:61): 61: my $domain = delete $arg->{Domain}; IO::Socket::configure(lib/IO/Socket.pm:63): 63: croak 'IO::Socket: Cannot configure a generic socket' 64: unless defined $domain; IO::Socket::configure(lib/IO/Socket.pm:66): 66: croak "IO::Socket: Unsupported socket domain" 67: unless defined $domain2pkg[$domain]; IO::Socket::configure(lib/IO/Socket.pm:69): 69: croak "IO::Socket: Cannot configure socket in domain '$domain'" 70: unless ref($sock) eq "IO::Socket"; IO::Socket::configure(lib/IO/Socket.pm:72): 72: bless($sock, $domain2pkg[$domain]); IO::Socket::configure(lib/IO/Socket.pm:73): 73: $sock->configure($arg); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:138): 138: my($sock,$arg) = @_; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:139): 139: my($lport,$rport,$laddr,$raddr,$proto,$type); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:142): 142: $arg->{LocalAddr} = $arg->{LocalHost} 143: if exists $arg->{LocalHost} && !exists $arg->{LocalAddr}; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:145): 145: ($laddr,$lport,$proto) = _sock_info($arg->{LocalAddr}, 146: $arg->{LocalPort}, 147: $arg->{Proto}) 148: or return _error($sock, $!, $@); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:73): 73: my($addr,$port,$proto) = @_; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:74): 74: my $origport = $port; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:75): 75: my @serv = (); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:77): 77: $port = $1 78: if(defined $addr && $addr =~ s,:([\w\(\)/]+)$,,); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:80): 80: if(defined $proto && $proto =~ /\D/) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:89): 89: if(defined $port) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:105): 105: return ($addr || undef, 106: $port || undef, 107: $proto || undef 108: ); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:150): 150: $laddr = defined $laddr ? inet_aton($laddr) 151: : INADDR_ANY; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:153): 153: return _error($sock, $EINVAL, "Bad hostname '",$arg->{LocalAddr},"'") 154: unless(defined $laddr); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:156): 156: $arg->{PeerAddr} = $arg->{PeerHost} 157: if exists $arg->{PeerHost} && !exists $arg->{PeerAddr}; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:159): 159: unless(exists $arg->{Listen}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:160): 160: ($raddr,$rport,$proto) = _sock_info($arg->{PeerAddr}, 161: $arg->{PeerPort}, 162: $proto) 163: or return _error($sock, $!, $@); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:73): 73: my($addr,$port,$proto) = @_; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:74): 74: my $origport = $port; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:75): 75: my @serv = (); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:77): 77: $port = $1 78: if(defined $addr && $addr =~ s,:([\w\(\)/]+)$,,); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:80): 80: if(defined $proto && $proto =~ /\D/) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:89): 89: if(defined $port) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:90): 90: my $defport = ($port =~ s,\((\d+)\)$,,) ? $1 : undef; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:91): 91: my $pnum = ($port =~ m,^(\d+)$,)[0]; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:93): 93: @serv = getservbyname($port, _get_proto_name($proto) || "") 94: if ($port =~ m,\D,); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:96): 96: $port = $serv[2] || $defport || $pnum; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:97): 97: unless (defined $port) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:102): 102: $proto = _get_proto_number($serv[3]) if @serv && !$proto; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:105): 105: return ($addr || undef, 106: $port || undef, 107: $proto || undef 108: ); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:166): 166: $proto ||= _get_proto_number('tcp'); IO::Socket::INET::_get_proto_number(lib/IO/Socket/INET.pm:49): 49: my $name = lc(shift); IO::Socket::INET::_get_proto_number(lib/IO/Socket/INET.pm:50): 50: return undef unless defined $name; IO::Socket::INET::_get_proto_number(lib/IO/Socket/INET.pm:51): 51: return $proto_number{$name} if exists $proto_number{$name}; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:168): 168: $type = $arg->{Type} || $socket_type{lc _get_proto_name($proto)}; IO::Socket::INET::_get_proto_name(lib/IO/Socket/INET.pm:61): 61: my $num = shift; IO::Socket::INET::_get_proto_name(lib/IO/Socket/INET.pm:62): 62: return undef unless defined $num; IO::Socket::INET::_get_proto_name(lib/IO/Socket/INET.pm:63): 63: return $proto_name{$num} if exists $proto_name{$num}; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:170): 170: my @raddr = (); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:172): 172: if(defined $raddr) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:173): 173: @raddr = $sock->_get_addr($raddr, $arg->{MultiHomed}); IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:126): 126: my($sock,$addr_str, $multi) = @_; IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:127): 127: my @addr; IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:128): 128: if ($multi && $addr_str !~ /^\d+(?:\.\d+){3}$/) { IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:131): 131: my $h = inet_aton($addr_str); IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:132): 132: push(@addr, $h) if defined $h; IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:134): 134: @addr; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:174): 174: return _error($sock, $EINVAL, "Bad hostname '",$arg->{PeerAddr},"'") 175: unless @raddr; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:178): 178: while(1) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:180): 180: $sock->socket(AF_INET, $type, $proto) or 181: return _error($sock, $!, "$!"); IO::Socket::socket(lib/IO/Socket.pm:77): 77: @_ == 4 or croak 'usage: $sock->socket(DOMAIN, TYPE, PROTOCOL)'; IO::Socket::socket(lib/IO/Socket.pm:78): 78: my($sock,$domain,$type,$protocol) = @_; IO::Socket::socket(lib/IO/Socket.pm:80): 80: socket($sock,$domain,$type,$protocol) or 81: return undef; IO::Socket::socket(lib/IO/Socket.pm:83): 83: ${*$sock}{'io_socket_domain'} = $domain; IO::Socket::socket(lib/IO/Socket.pm:83): 83: ${*$sock}{'io_socket_domain'} = $domain; IO::Socket::socket(lib/IO/Socket.pm:84): 84: ${*$sock}{'io_socket_type'} = $type; IO::Socket::socket(lib/IO/Socket.pm:84): 84: ${*$sock}{'io_socket_type'} = $type; IO::Socket::socket(lib/IO/Socket.pm:85): 85: ${*$sock}{'io_socket_proto'} = $protocol; IO::Socket::socket(lib/IO/Socket.pm:85): 85: ${*$sock}{'io_socket_proto'} = $protocol; IO::Socket::socket(lib/IO/Socket.pm:87): 87: $sock; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:183): 183: if (defined $arg->{Blocking}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:188): 188: if ($arg->{Reuse} || $arg->{ReuseAddr}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:193): 193: if ($arg->{ReusePort}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:198): 198: if ($arg->{Broadcast}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:203): 203: if($lport || ($laddr ne INADDR_ANY) || exists $arg->{Listen}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:208): 208: if(exists $arg->{Listen}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:215): 215: last unless exists($arg->{PeerAddr}); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:217): 217: $raddr = shift @raddr; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:219): 219: return _error($sock, $EINVAL, 'Cannot determine remote port') 220: unless($rport || $type == SOCK_DGRAM || $type == SOCK_RAW); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:223): 223: unless($type == SOCK_STREAM || defined $raddr); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:225): 225: return _error($sock, $EINVAL, "Bad hostname '",$arg->{PeerAddr},"'") 226: unless defined $raddr; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:231): 231: undef $@; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:232): 232: if ($sock->connect(pack_sockaddr_in($rport, $raddr))) { IO::Socket::INET::connect(lib/IO/Socket/INET.pm:254): 254: @_ == 2 || @_ == 3 or 255: croak 'usage: $sock->connect(NAME) or $sock->connect(PORT, ADDR)'; IO::Socket::INET::connect(lib/IO/Socket/INET.pm:256): 256: my $sock = shift; IO::Socket::INET::connect(lib/IO/Socket/INET.pm:257): 257: return $sock->SUPER::connect(@_ == 1 ? shift : pack_sockaddr_in(@_)); IO::Socket::connect(lib/IO/Socket.pm:106): 106: @_ == 2 or croak 'usage: $sock->connect(NAME)'; IO::Socket::connect(lib/IO/Socket.pm:107): 107: my $sock = shift; IO::Socket::connect(lib/IO/Socket.pm:108): 108: my $addr = shift; IO::Socket::connect(lib/IO/Socket.pm:109): 109: my $timeout = ${*$sock}{'io_socket_timeout'}; IO::Socket::connect(lib/IO/Socket.pm:109): 109: my $timeout = ${*$sock}{'io_socket_timeout'}; IO::Socket::connect(lib/IO/Socket.pm:110): 110: my $err; IO::Socket::connect(lib/IO/Socket.pm:111): 111: my $blocking; IO::Socket::connect(lib/IO/Socket.pm:113): 113: $blocking = $sock->blocking(0) if $timeout; IO::Socket::connect(lib/IO/Socket.pm:114): 114: if (!connect($sock, $addr)) { IO::Socket::connect(lib/IO/Socket.pm:141): 141: $sock->blocking(1) if $blocking; IO::Socket::connect(lib/IO/Socket.pm:143): 143: $! = $err if $err; IO::Socket::connect(lib/IO/Socket.pm:145): 145: $err ? undef : $sock; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:234): 234: return $sock; main::(ext\IO\t\io_sock.t:158): if ($sock) { main::(ext\IO\t\io_sock.t:159): $sock->print("ok 11\n"); IO::Handle::print(lib/IO/Handle.pm:404): 404: @_ or croak 'usage: $io->print(ARGS)'; IO::Handle::print(lib/IO/Handle.pm:405): 405: my $this = shift; IO::Handle::print(lib/IO/Handle.pm:406): 406: print $this @_; IO::Select::handles(lib/IO/Select.pm:219): 219: my $vec = shift; main::(ext\IO\t\io_sock.t:160): $sock->print("quit\n"); IO::Select::handles(lib/IO/Select.pm:220): 220: my $bits = shift; IO::Handle::print(lib/IO/Handle.pm:404): 404: @_ or croak 'usage: $io->print(ARGS)'; IO::Select::handles(lib/IO/Select.pm:221): 221: my @h = (); IO::Handle::print(lib/IO/Handle.pm:405): 405: my $this = shift; IO::Select::handles(lib/IO/Select.pm:222): 222: my $i; IO::Handle::print(lib/IO/Handle.pm:406): 406: print $this @_; IO::Select::handles(lib/IO/Select.pm:223): 223: my $max = scalar(@$vec) - 1; IO::Select::handles(lib/IO/Select.pm:230): 230: } IO::Select::handles(lib/IO/Select.pm:225): 225: for ($i = FIRST_FD; $i <= $max; $i++) 226: { IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Select::handles(lib/IO/Select.pm:228): 228: push(@h, $vec->[$i]) 229: if !defined($bits) || vec($bits, $i - FIRST_FD, 1); IO::Select::handles(lib/IO/Select.pm:232): 232: @h; IO::Socket::accept(lib/IO/Socket.pm:237): 237: $peer = accept($new,$sock) 238: or return; IO::Socket::accept(lib/IO/Socket.pm:240): 240: return wantarray ? ($new, $peer) 241: : $new; main::(ext\IO\t\io_sock.t:107): while (<$sock>) { main::(ext\IO\t\io_sock.t:108): last SERVER_LOOP if /^quit/; main::(ext\IO\t\io_sock.t:109): last if /^done/; main::(ext\IO\t\io_sock.t:110): print; main::(ext\IO\t\io_sock.t:108): last SERVER_LOOP if /^quit/; main::(ext\IO\t\io_sock.t:114): $listen->close; IO::Socket::close(lib/IO/Socket.pm:192): 192: @_ == 1 or croak 'usage: $sock->close()'; IO::Socket::close(lib/IO/Socket.pm:193): 193: my $sock = shift; IO::Socket::close(lib/IO/Socket.pm:194): 194: ${*$sock}{'io_socket_peername'} = undef; IO::Socket::close(lib/IO/Socket.pm:194): 194: ${*$sock}{'io_socket_peername'} = undef; IO::Socket::close(lib/IO/Socket.pm:195): 195: $sock->SUPER::close(); IO::Handle::close(lib/IO/Handle.pm:370): 370: @_ == 1 or croak 'usage: $io->close()'; IO::Handle::close(lib/IO/Handle.pm:371): 371: my($io) = @_; IO::Handle::close(lib/IO/Handle.pm:373): 373: close($io); main::(ext\IO\t\io_sock.t:172): $server = IO::Socket->new(Domain => AF_INET, main::(ext\IO\t\io_sock.t:173): Proto => 'udp', main::(ext\IO\t\io_sock.t:174): LocalAddr => 'localhost') main::(ext\IO\t\io_sock.t:175): || IO::Socket->new(Domain => AF_INET, main::(ext\IO\t\io_sock.t:176): Proto => 'udp', main::(ext\IO\t\io_sock.t:177): LocalAddr => '127.0.0.1'); IO::Socket::new(lib/IO/Socket.pm:41): 41: my($class,%arg) = @_; IO::Socket::new(lib/IO/Socket.pm:42): 42: my $sock = $class->SUPER::new(); IO::Handle::new(lib/IO/Handle.pm:311): 311: my $class = ref($_[0]) || $_[0] || "IO::Handle"; IO::Handle::new(lib/IO/Handle.pm:312): 312: @_ == 1 or croak "usage: new $class"; IO::Handle::new(lib/IO/Handle.pm:313): 313: my $io = gensym; Symbol::gensym(lib/Symbol.pm:101): my $name = "GEN" . $genseq++; Symbol::gensym(lib/Symbol.pm:102): my $ref = \*{$genpkg . $name}; Symbol::gensym(lib/Symbol.pm:102): my $ref = \*{$genpkg . $name}; Symbol::gensym(lib/Symbol.pm:103): delete $$genpkg{$name}; Symbol::gensym(lib/Symbol.pm:104): $ref; IO::Handle::new(lib/IO/Handle.pm:314): 314: bless $io, $class; IO::Socket::new(lib/IO/Socket.pm:44): 44: $sock->autoflush(1); IO::Handle::autoflush(lib/IO/Handle.pm:479): 479: my $old = new SelectSaver qualify($_[0], caller); Symbol::qualify(lib/Symbol.pm:117): my ($name) = @_; Symbol::qualify(lib/Symbol.pm:118): if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { Symbol::qualify(lib/Symbol.pm:131): $name; SelectSaver::new(lib/SelectSaver.pm:42): 42: @_ >= 1 && @_ <= 2 or croak 'usage: SelectSaver->new( [FILEHANDLE] )'; SelectSaver::new(lib/SelectSaver.pm:43): 43: my $fh = select; SelectSaver::new(lib/SelectSaver.pm:44): 44: my $self = bless \$fh, $_[0]; SelectSaver::new(lib/SelectSaver.pm:45): 45: select qualify($_[1], caller) if @_ > 1; Symbol::qualify(lib/Symbol.pm:117): my ($name) = @_; Symbol::qualify(lib/Symbol.pm:118): if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { Symbol::qualify(lib/Symbol.pm:131): $name; SelectSaver::new(lib/SelectSaver.pm:46): 46: $self; IO::Handle::autoflush(lib/IO/Handle.pm:480): 480: my $prev = $|; IO::Handle::autoflush(lib/IO/Handle.pm:481): 481: $| = @_ > 1 ? $_[1] : 1; IO::Handle::autoflush(lib/IO/Handle.pm:482): 482: $prev; SelectSaver::DESTROY(lib/SelectSaver.pm:50): 50: my $self = $_[0]; SelectSaver::DESTROY(lib/SelectSaver.pm:51): 51: select $$self; IO::Socket::new(lib/IO/Socket.pm:46): 46: ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout}; IO::Socket::new(lib/IO/Socket.pm:46): 46: ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout}; IO::Socket::new(lib/IO/Socket.pm:48): 48: return scalar(%arg) ? $sock->configure(\%arg) 49: : $sock; IO::Socket::configure(lib/IO/Socket.pm:60): 60: my($sock,$arg) = @_; IO::Socket::configure(lib/IO/Socket.pm:61): 61: my $domain = delete $arg->{Domain}; main::(ext\IO\t\io_sock.t:164): $sock = undef; IO::Socket::configure(lib/IO/Socket.pm:63): 63: croak 'IO::Socket: Cannot configure a generic socket' 64: unless defined $domain; IO::Socket::configure(lib/IO/Socket.pm:66): 66: croak "IO::Socket: Unsupported socket domain" 67: unless defined $domain2pkg[$domain]; main::(ext\IO\t\io_sock.t:165): sleep(1); IO::Socket::configure(lib/IO/Socket.pm:69): 69: croak "IO::Socket: Cannot configure socket in domain '$domain'" 70: unless ref($sock) eq "IO::Socket"; IO::Socket::configure(lib/IO/Socket.pm:72): 72: bless($sock, $domain2pkg[$domain]); IO::Socket::configure(lib/IO/Socket.pm:73): 73: $sock->configure($arg); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:138): 138: my($sock,$arg) = @_; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:139): 139: my($lport,$rport,$laddr,$raddr,$proto,$type); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:142): 142: $arg->{LocalAddr} = $arg->{LocalHost} 143: if exists $arg->{LocalHost} && !exists $arg->{LocalAddr}; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:145): 145: ($laddr,$lport,$proto) = _sock_info($arg->{LocalAddr}, 146: $arg->{LocalPort}, 147: $arg->{Proto}) 148: or return _error($sock, $!, $@); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:73): 73: my($addr,$port,$proto) = @_; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:74): 74: my $origport = $port; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:75): 75: my @serv = (); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:77): 77: $port = $1 78: if(defined $addr && $addr =~ s,:([\w\(\)/]+)$,,); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:80): 80: if(defined $proto && $proto =~ /\D/) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:81): 81: my $num = _get_proto_number($proto); IO::Socket::INET::_get_proto_number(lib/IO/Socket/INET.pm:49): 49: my $name = lc(shift); IO::Socket::INET::_get_proto_number(lib/IO/Socket/INET.pm:50): 50: return undef unless defined $name; IO::Socket::INET::_get_proto_number(lib/IO/Socket/INET.pm:51): 51: return $proto_number{$name} if exists $proto_number{$name}; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:82): 82: unless (defined $num) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:86): 86: $proto = $num; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:89): 89: if(defined $port) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:105): 105: return ($addr || undef, 106: $port || undef, 107: $proto || undef 108: ); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:150): 150: $laddr = defined $laddr ? inet_aton($laddr) 151: : INADDR_ANY; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:153): 153: return _error($sock, $EINVAL, "Bad hostname '",$arg->{LocalAddr},"'") 154: unless(defined $laddr); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:156): 156: $arg->{PeerAddr} = $arg->{PeerHost} 157: if exists $arg->{PeerHost} && !exists $arg->{PeerAddr}; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:159): 159: unless(exists $arg->{Listen}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:160): 160: ($raddr,$rport,$proto) = _sock_info($arg->{PeerAddr}, 161: $arg->{PeerPort}, 162: $proto) 163: or return _error($sock, $!, $@); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:73): 73: my($addr,$port,$proto) = @_; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:74): 74: my $origport = $port; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:75): 75: my @serv = (); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:77): 77: $port = $1 78: if(defined $addr && $addr =~ s,:([\w\(\)/]+)$,,); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:80): 80: if(defined $proto && $proto =~ /\D/) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:89): 89: if(defined $port) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:105): 105: return ($addr || undef, 106: $port || undef, 107: $proto || undef 108: ); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:166): 166: $proto ||= _get_proto_number('tcp'); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:168): 168: $type = $arg->{Type} || $socket_type{lc _get_proto_name($proto)}; IO::Socket::INET::_get_proto_name(lib/IO/Socket/INET.pm:61): 61: my $num = shift; IO::Socket::INET::_get_proto_name(lib/IO/Socket/INET.pm:62): 62: return undef unless defined $num; IO::Socket::INET::_get_proto_name(lib/IO/Socket/INET.pm:63): 63: return $proto_name{$num} if exists $proto_name{$num}; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:170): 170: my @raddr = (); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:172): 172: if(defined $raddr) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:178): 178: while(1) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:180): 180: $sock->socket(AF_INET, $type, $proto) or 181: return _error($sock, $!, "$!"); IO::Socket::socket(lib/IO/Socket.pm:77): 77: @_ == 4 or croak 'usage: $sock->socket(DOMAIN, TYPE, PROTOCOL)'; IO::Socket::socket(lib/IO/Socket.pm:78): 78: my($sock,$domain,$type,$protocol) = @_; IO::Socket::socket(lib/IO/Socket.pm:80): 80: socket($sock,$domain,$type,$protocol) or 81: return undef; IO::Socket::socket(lib/IO/Socket.pm:83): 83: ${*$sock}{'io_socket_domain'} = $domain; IO::Socket::socket(lib/IO/Socket.pm:83): 83: ${*$sock}{'io_socket_domain'} = $domain; IO::Socket::socket(lib/IO/Socket.pm:84): 84: ${*$sock}{'io_socket_type'} = $type; IO::Socket::socket(lib/IO/Socket.pm:84): 84: ${*$sock}{'io_socket_type'} = $type; IO::Socket::socket(lib/IO/Socket.pm:85): 85: ${*$sock}{'io_socket_proto'} = $protocol; IO::Socket::socket(lib/IO/Socket.pm:85): 85: ${*$sock}{'io_socket_proto'} = $protocol; IO::Socket::socket(lib/IO/Socket.pm:87): 87: $sock; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:183): 183: if (defined $arg->{Blocking}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:188): 188: if ($arg->{Reuse} || $arg->{ReuseAddr}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:193): 193: if ($arg->{ReusePort}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:198): 198: if ($arg->{Broadcast}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:203): 203: if($lport || ($laddr ne INADDR_ANY) || exists $arg->{Listen}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:204): 204: $sock->bind($lport || 0, $laddr) or 205: return _error($sock, $!, "$!"); IO::Socket::INET::bind(lib/IO/Socket/INET.pm:261): 261: @_ == 2 || @_ == 3 or 262: croak 'usage: $sock->bind(NAME) or $sock->bind(PORT, ADDR)'; IO::Socket::INET::bind(lib/IO/Socket/INET.pm:263): 263: my $sock = shift; IO::Socket::INET::bind(lib/IO/Socket/INET.pm:264): 264: return $sock->SUPER::bind(@_ == 1 ? shift : pack_sockaddr_in(@_)) IO::Socket::bind(lib/IO/Socket.pm:199): 199: @_ == 2 or croak 'usage: $sock->bind(NAME)'; IO::Socket::bind(lib/IO/Socket.pm:200): 200: my $sock = shift; IO::Socket::bind(lib/IO/Socket.pm:201): 201: my $addr = shift; IO::Socket::bind(lib/IO/Socket.pm:203): 203: return bind($sock, $addr) ? $sock 204: : undef; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:208): 208: if(exists $arg->{Listen}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:215): 215: last unless exists($arg->{PeerAddr}); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:250): 250: $sock; main::(ext\IO\t\io_sock.t:178): $port = $server->sockport; IO::Socket::INET::sockport(lib/IO/Socket/INET.pm:275): 275: @_ == 1 or croak 'usage: $sock->sockport()'; IO::Socket::INET::sockport(lib/IO/Socket/INET.pm:276): 276: my($sock) = @_; IO::Socket::INET::sockport(lib/IO/Socket/INET.pm:277): 277: my $name = $sock->sockname; IO::Socket::sockname(lib/IO/Socket.pm:245): 245: @_ == 1 or croak 'usage: $sock->sockname()'; IO::Socket::sockname(lib/IO/Socket.pm:246): 246: getsockname($_[0]); IO::Socket::INET::sockport(lib/IO/Socket/INET.pm:278): 278: $name ? (sockaddr_in($name))[0] : undef; Socket::sockaddr_in(lib/Socket.pm:392): 392: if (@_ == 6 && !wantarray) { # perl5.001m compat; use this && die Socket::sockaddr_in(lib/Socket.pm:398): 398: croak "usage: (port,iaddr) = sockaddr_in(sin_sv)" unless @_ == 1; Socket::sockaddr_in(lib/Socket.pm:399): 399: unpack_sockaddr_in(@_); main::(ext\IO\t\io_sock.t:180): if ($pid = fork()) { main::(ext\IO\t\io_sock.t:181): my $buf; main::(ext\IO\t\io_sock.t:182): $server->recv($buf, 100); IO::Socket::recv(lib/IO/Socket.pm:282): 282: @_ == 3 || @_ == 4 or croak 'usage: $sock->recv(BUF, LEN [, FLAGS])'; IO::Socket::recv(lib/IO/Socket.pm:283): 283: my $sock = $_[0]; IO::Socket::recv(lib/IO/Socket.pm:284): 284: my $len = $_[2]; IO::Socket::recv(lib/IO/Socket.pm:285): 285: my $flags = $_[3] || 0; IO::Socket::recv(lib/IO/Socket.pm:288): 288: ${*$sock}{'io_socket_peername'} = recv($sock, $_[1]='', $len, $flags); main::(ext\IO\t\io_sock.t:186): $sock = IO::Socket::INET->new(Proto => 'udp', main::(ext\IO\t\io_sock.t:187): PeerAddr => "localhost:$port") main::(ext\IO\t\io_sock.t:188): || IO::Socket::INET->new(Proto => 'udp', main::(ext\IO\t\io_sock.t:189): PeerAddr => "127.0.0.1:$port"); IO::Socket::INET::new(lib/IO/Socket/INET.pm:35): 35: my $class = shift; IO::Socket::INET::new(lib/IO/Socket/INET.pm:36): 36: unshift(@_, "PeerAddr") if @_ == 1; IO::Socket::INET::new(lib/IO/Socket/INET.pm:37): 37: return $class->SUPER::new(@_); IO::Socket::new(lib/IO/Socket.pm:41): 41: my($class,%arg) = @_; IO::Socket::new(lib/IO/Socket.pm:42): 42: my $sock = $class->SUPER::new(); IO::Handle::new(lib/IO/Handle.pm:311): 311: my $class = ref($_[0]) || $_[0] || "IO::Handle"; IO::Handle::new(lib/IO/Handle.pm:312): 312: @_ == 1 or croak "usage: new $class"; IO::Handle::new(lib/IO/Handle.pm:313): 313: my $io = gensym; Symbol::gensym(lib/Symbol.pm:101): my $name = "GEN" . $genseq++; Symbol::gensym(lib/Symbol.pm:102): my $ref = \*{$genpkg . $name}; Symbol::gensym(lib/Symbol.pm:102): my $ref = \*{$genpkg . $name}; Symbol::gensym(lib/Symbol.pm:103): delete $$genpkg{$name}; Symbol::gensym(lib/Symbol.pm:104): $ref; IO::Handle::new(lib/IO/Handle.pm:314): 314: bless $io, $class; IO::Socket::new(lib/IO/Socket.pm:44): 44: $sock->autoflush(1); IO::Handle::autoflush(lib/IO/Handle.pm:479): 479: my $old = new SelectSaver qualify($_[0], caller); Symbol::qualify(lib/Symbol.pm:117): my ($name) = @_; Symbol::qualify(lib/Symbol.pm:118): if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { Symbol::qualify(lib/Symbol.pm:131): $name; SelectSaver::new(lib/SelectSaver.pm:42): 42: @_ >= 1 && @_ <= 2 or croak 'usage: SelectSaver->new( [FILEHANDLE] )'; SelectSaver::new(lib/SelectSaver.pm:43): 43: my $fh = select; SelectSaver::new(lib/SelectSaver.pm:44): 44: my $self = bless \$fh, $_[0]; SelectSaver::new(lib/SelectSaver.pm:45): 45: select qualify($_[1], caller) if @_ > 1; Symbol::qualify(lib/Symbol.pm:117): my ($name) = @_; Symbol::qualify(lib/Symbol.pm:118): if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { Symbol::qualify(lib/Symbol.pm:131): $name; SelectSaver::new(lib/SelectSaver.pm:46): 46: $self; IO::Handle::autoflush(lib/IO/Handle.pm:480): 480: my $prev = $|; IO::Handle::autoflush(lib/IO/Handle.pm:481): 481: $| = @_ > 1 ? $_[1] : 1; IO::Handle::autoflush(lib/IO/Handle.pm:482): 482: $prev; SelectSaver::DESTROY(lib/SelectSaver.pm:50): 50: my $self = $_[0]; SelectSaver::DESTROY(lib/SelectSaver.pm:51): 51: select $$self; IO::Socket::new(lib/IO/Socket.pm:46): 46: ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout}; IO::Socket::new(lib/IO/Socket.pm:46): 46: ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout}; IO::Socket::new(lib/IO/Socket.pm:48): 48: return scalar(%arg) ? $sock->configure(\%arg) 49: : $sock; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:138): 138: my($sock,$arg) = @_; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:139): 139: my($lport,$rport,$laddr,$raddr,$proto,$type); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:142): 142: $arg->{LocalAddr} = $arg->{LocalHost} 143: if exists $arg->{LocalHost} && !exists $arg->{LocalAddr}; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:145): 145: ($laddr,$lport,$proto) = _sock_info($arg->{LocalAddr}, 146: $arg->{LocalPort}, 147: $arg->{Proto}) 148: or return _error($sock, $!, $@); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:73): 73: my($addr,$port,$proto) = @_; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:74): 74: my $origport = $port; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:75): 75: my @serv = (); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:77): 77: $port = $1 78: if(defined $addr && $addr =~ s,:([\w\(\)/]+)$,,); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:80): 80: if(defined $proto && $proto =~ /\D/) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:81): 81: my $num = _get_proto_number($proto); IO::Socket::INET::_get_proto_number(lib/IO/Socket/INET.pm:49): 49: my $name = lc(shift); IO::Socket::INET::_get_proto_number(lib/IO/Socket/INET.pm:50): 50: return undef unless defined $name; IO::Socket::INET::_get_proto_number(lib/IO/Socket/INET.pm:51): 51: return $proto_number{$name} if exists $proto_number{$name}; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:82): 82: unless (defined $num) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:86): 86: $proto = $num; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:89): 89: if(defined $port) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:105): 105: return ($addr || undef, 106: $port || undef, 107: $proto || undef 108: ); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:150): 150: $laddr = defined $laddr ? inet_aton($laddr) 151: : INADDR_ANY; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:153): 153: return _error($sock, $EINVAL, "Bad hostname '",$arg->{LocalAddr},"'") 154: unless(defined $laddr); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:156): 156: $arg->{PeerAddr} = $arg->{PeerHost} 157: if exists $arg->{PeerHost} && !exists $arg->{PeerAddr}; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:159): 159: unless(exists $arg->{Listen}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:160): 160: ($raddr,$rport,$proto) = _sock_info($arg->{PeerAddr}, 161: $arg->{PeerPort}, 162: $proto) 163: or return _error($sock, $!, $@); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:73): 73: my($addr,$port,$proto) = @_; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:74): 74: my $origport = $port; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:75): 75: my @serv = (); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:77): 77: $port = $1 78: if(defined $addr && $addr =~ s,:([\w\(\)/]+)$,,); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:80): 80: if(defined $proto && $proto =~ /\D/) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:89): 89: if(defined $port) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:90): 90: my $defport = ($port =~ s,\((\d+)\)$,,) ? $1 : undef; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:91): 91: my $pnum = ($port =~ m,^(\d+)$,)[0]; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:93): 93: @serv = getservbyname($port, _get_proto_name($proto) || "") 94: if ($port =~ m,\D,); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:96): 96: $port = $serv[2] || $defport || $pnum; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:97): 97: unless (defined $port) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:102): 102: $proto = _get_proto_number($serv[3]) if @serv && !$proto; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:105): 105: return ($addr || undef, 106: $port || undef, 107: $proto || undef 108: ); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:166): 166: $proto ||= _get_proto_number('tcp'); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:168): 168: $type = $arg->{Type} || $socket_type{lc _get_proto_name($proto)}; IO::Socket::INET::_get_proto_name(lib/IO/Socket/INET.pm:61): 61: my $num = shift; IO::Socket::INET::_get_proto_name(lib/IO/Socket/INET.pm:62): 62: return undef unless defined $num; IO::Socket::INET::_get_proto_name(lib/IO/Socket/INET.pm:63): 63: return $proto_name{$num} if exists $proto_name{$num}; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:170): 170: my @raddr = (); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:172): 172: if(defined $raddr) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:173): 173: @raddr = $sock->_get_addr($raddr, $arg->{MultiHomed}); IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:126): 126: my($sock,$addr_str, $multi) = @_; IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:127): 127: my @addr; IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:128): 128: if ($multi && $addr_str !~ /^\d+(?:\.\d+){3}$/) { IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:131): 131: my $h = inet_aton($addr_str); IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:132): 132: push(@addr, $h) if defined $h; IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:134): 134: @addr; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:174): 174: return _error($sock, $EINVAL, "Bad hostname '",$arg->{PeerAddr},"'") 175: unless @raddr; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:178): 178: while(1) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:180): 180: $sock->socket(AF_INET, $type, $proto) or 181: return _error($sock, $!, "$!"); IO::Socket::socket(lib/IO/Socket.pm:77): 77: @_ == 4 or croak 'usage: $sock->socket(DOMAIN, TYPE, PROTOCOL)'; IO::Socket::socket(lib/IO/Socket.pm:78): 78: my($sock,$domain,$type,$protocol) = @_; IO::Socket::socket(lib/IO/Socket.pm:80): 80: socket($sock,$domain,$type,$protocol) or 81: return undef; IO::Socket::socket(lib/IO/Socket.pm:83): 83: ${*$sock}{'io_socket_domain'} = $domain; IO::Socket::socket(lib/IO/Socket.pm:83): 83: ${*$sock}{'io_socket_domain'} = $domain; IO::Socket::socket(lib/IO/Socket.pm:84): 84: ${*$sock}{'io_socket_type'} = $type; IO::Socket::socket(lib/IO/Socket.pm:84): 84: ${*$sock}{'io_socket_type'} = $type; IO::Socket::socket(lib/IO/Socket.pm:85): 85: ${*$sock}{'io_socket_proto'} = $protocol; IO::Socket::socket(lib/IO/Socket.pm:85): 85: ${*$sock}{'io_socket_proto'} = $protocol; IO::Socket::socket(lib/IO/Socket.pm:87): 87: $sock; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:183): 183: if (defined $arg->{Blocking}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:188): 188: if ($arg->{Reuse} || $arg->{ReuseAddr}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:193): 193: if ($arg->{ReusePort}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:198): 198: if ($arg->{Broadcast}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:203): 203: if($lport || ($laddr ne INADDR_ANY) || exists $arg->{Listen}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:208): 208: if(exists $arg->{Listen}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:215): 215: last unless exists($arg->{PeerAddr}); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:217): 217: $raddr = shift @raddr; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:219): 219: return _error($sock, $EINVAL, 'Cannot determine remote port') 220: unless($rport || $type == SOCK_DGRAM || $type == SOCK_RAW); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:223): 223: unless($type == SOCK_STREAM || defined $raddr); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:225): 225: return _error($sock, $EINVAL, "Bad hostname '",$arg->{PeerAddr},"'") 226: unless defined $raddr; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:231): 231: undef $@; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:232): 232: if ($sock->connect(pack_sockaddr_in($rport, $raddr))) { IO::Socket::INET::connect(lib/IO/Socket/INET.pm:254): 254: @_ == 2 || @_ == 3 or 255: croak 'usage: $sock->connect(NAME) or $sock->connect(PORT, ADDR)'; IO::Socket::INET::connect(lib/IO/Socket/INET.pm:256): 256: my $sock = shift; IO::Socket::INET::connect(lib/IO/Socket/INET.pm:257): 257: return $sock->SUPER::connect(@_ == 1 ? shift : pack_sockaddr_in(@_)); IO::Socket::connect(lib/IO/Socket.pm:106): 106: @_ == 2 or croak 'usage: $sock->connect(NAME)'; IO::Socket::connect(lib/IO/Socket.pm:107): 107: my $sock = shift; IO::Socket::connect(lib/IO/Socket.pm:108): 108: my $addr = shift; IO::Socket::connect(lib/IO/Socket.pm:109): 109: my $timeout = ${*$sock}{'io_socket_timeout'}; IO::Socket::connect(lib/IO/Socket.pm:109): 109: my $timeout = ${*$sock}{'io_socket_timeout'}; IO::Socket::connect(lib/IO/Socket.pm:110): 110: my $err; IO::Socket::connect(lib/IO/Socket.pm:111): 111: my $blocking; IO::Socket::connect(lib/IO/Socket.pm:113): 113: $blocking = $sock->blocking(0) if $timeout; IO::Socket::connect(lib/IO/Socket.pm:114): 114: if (!connect($sock, $addr)) { IO::Socket::connect(lib/IO/Socket.pm:141): 141: $sock->blocking(1) if $blocking; IO::Socket::connect(lib/IO/Socket.pm:143): 143: $! = $err if $err; IO::Socket::connect(lib/IO/Socket.pm:145): 145: $err ? undef : $sock; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:234): 234: return $sock; main::(ext\IO\t\io_sock.t:190): $sock->send("ok 12\n"); IO::Socket::send(lib/IO/Socket.pm:262): 262: @_ >= 2 && @_ <= 4 or croak 'usage: $sock->send(BUF, [FLAGS, [TO]])'; IO::Socket::send(lib/IO/Socket.pm:263): 263: my $sock = $_[0]; IO::Socket::send(lib/IO/Socket.pm:264): 264: my $flags = $_[2] || 0; IO::Socket::send(lib/IO/Socket.pm:265): 265: my $peer = $_[3] || $sock->peername; IO::Socket::peername(lib/IO/Socket.pm:250): 250: @_ == 1 or croak 'usage: $sock->peername()'; IO::Socket::peername(lib/IO/Socket.pm:251): 251: my($sock) = @_; IO::Socket::peername(lib/IO/Socket.pm:252): 252: ${*$sock}{'io_socket_peername'} ||= getpeername($sock); IO::Socket::peername(lib/IO/Socket.pm:252): 252: ${*$sock}{'io_socket_peername'} ||= getpeername($sock); IO::Socket::send(lib/IO/Socket.pm:267): 267: croak 'send: Cannot determine peer address' 268: unless(defined $peer); IO::Socket::send(lib/IO/Socket.pm:270): 270: my $r = defined(getpeername($sock)) 271: ? send($sock, $_[1], $flags) 272: : send($sock, $_[1], $flags, $peer); IO::Socket::send(lib/IO/Socket.pm:275): 275: ${*$sock}{'io_socket_peername'} = $peer 276: if(@_ == 4 && defined $r); IO::Socket::recv(lib/IO/Socket.pm:288): 288: ${*$sock}{'io_socket_peername'} = recv($sock, $_[1]='', $len, $flags); IO::Socket::send(lib/IO/Socket.pm:278): 278: $r; main::(ext\IO\t\io_sock.t:183): print $buf; main::(ext\IO\t\io_sock.t:191): sleep(1); main::(ext\IO\t\io_sock.t:198): print "not " unless $server->blocking; IO::Socket::blocking(lib/IO/Socket.pm:155): 155: my $sock = shift; IO::Socket::blocking(lib/IO/Socket.pm:157): 157: return $sock->SUPER::blocking(@_) 158: if $^O ne 'MSWin32'; IO::Socket::blocking(lib/IO/Socket.pm:175): 175: my $orig= !${*$sock}{io_sock_nonblocking}; IO::Socket::blocking(lib/IO/Socket.pm:175): 175: my $orig= !${*$sock}{io_sock_nonblocking}; IO::Socket::blocking(lib/IO/Socket.pm:177): 177: return $orig unless @_; main::(ext\IO\t\io_sock.t:199): print "ok 13\n"; main::(ext\IO\t\io_sock.t:201): if ( $^O eq 'qnx' ) { main::(ext\IO\t\io_sock.t:206): $server->blocking(0); IO::Socket::blocking(lib/IO/Socket.pm:155): 155: my $sock = shift; IO::Socket::blocking(lib/IO/Socket.pm:157): 157: return $sock->SUPER::blocking(@_) 158: if $^O ne 'MSWin32'; IO::Socket::blocking(lib/IO/Socket.pm:175): 175: my $orig= !${*$sock}{io_sock_nonblocking}; IO::Socket::blocking(lib/IO/Socket.pm:175): 175: my $orig= !${*$sock}{io_sock_nonblocking}; IO::Socket::blocking(lib/IO/Socket.pm:177): 177: return $orig unless @_; IO::Socket::blocking(lib/IO/Socket.pm:179): 179: my $block = shift; IO::Socket::blocking(lib/IO/Socket.pm:181): 181: if ( !$block != !$orig ) { IO::Socket::blocking(lib/IO/Socket.pm:182): 182: ${*$sock}{io_sock_nonblocking} = $block ? 0 : 1; IO::Socket::blocking(lib/IO/Socket.pm:182): 182: ${*$sock}{io_sock_nonblocking} = $block ? 0 : 1; IO::Socket::blocking(lib/IO/Socket.pm:183): 183: ioctl($sock, 0x8004667e, pack("L!",${*$sock}{io_sock_nonblocking})) 184: or return undef; IO::Socket::blocking(lib/IO/Socket.pm:183): 183: ioctl($sock, 0x8004667e, pack("L!",${*$sock}{io_sock_nonblocking})) 184: or return undef; IO::Socket::blocking(lib/IO/Socket.pm:187): 187: return $orig; main::(ext\IO\t\io_sock.t:207): print "not " if $server->blocking; IO::Socket::blocking(lib/IO/Socket.pm:155): 155: my $sock = shift; IO::Socket::blocking(lib/IO/Socket.pm:157): 157: return $sock->SUPER::blocking(@_) 158: if $^O ne 'MSWin32'; IO::Socket::blocking(lib/IO/Socket.pm:175): 175: my $orig= !${*$sock}{io_sock_nonblocking}; IO::Socket::blocking(lib/IO/Socket.pm:175): 175: my $orig= !${*$sock}{io_sock_nonblocking}; IO::Socket::blocking(lib/IO/Socket.pm:177): 177: return $orig unless @_; main::(ext\IO\t\io_sock.t:208): print "ok 14\n"; main::(ext\IO\t\io_sock.t:215): local @data; main::(ext\IO\t\io_sock.t:216): if( !open( SRC, "< $0")) { main::(ext\IO\t\io_sock.t:219): @data = ; main::(ext\IO\t\io_sock.t:220): close(SRC); main::(ext\IO\t\io_sock.t:221): print "ok 15\n"; main::(ext\IO\t\io_sock.t:227): my $listen = IO::Socket::INET->new( Listen => 2, Proto => 'tcp', Timeout => 15) || main::(ext\IO\t\io_sock.t:228): print "not "; IO::Socket::INET::new(lib/IO/Socket/INET.pm:35): 35: my $class = shift; IO::Socket::INET::new(lib/IO/Socket/INET.pm:36): 36: unshift(@_, "PeerAddr") if @_ == 1; IO::Socket::INET::new(lib/IO/Socket/INET.pm:37): 37: return $class->SUPER::new(@_); IO::Socket::new(lib/IO/Socket.pm:41): 41: my($class,%arg) = @_; IO::Socket::new(lib/IO/Socket.pm:42): 42: my $sock = $class->SUPER::new(); IO::Handle::new(lib/IO/Handle.pm:311): 311: my $class = ref($_[0]) || $_[0] || "IO::Handle"; IO::Handle::new(lib/IO/Handle.pm:312): 312: @_ == 1 or croak "usage: new $class"; IO::Handle::new(lib/IO/Handle.pm:313): 313: my $io = gensym; Symbol::gensym(lib/Symbol.pm:101): my $name = "GEN" . $genseq++; Symbol::gensym(lib/Symbol.pm:102): my $ref = \*{$genpkg . $name}; Symbol::gensym(lib/Symbol.pm:102): my $ref = \*{$genpkg . $name}; Symbol::gensym(lib/Symbol.pm:103): delete $$genpkg{$name}; Symbol::gensym(lib/Symbol.pm:104): $ref; IO::Handle::new(lib/IO/Handle.pm:314): 314: bless $io, $class; IO::Socket::new(lib/IO/Socket.pm:44): 44: $sock->autoflush(1); IO::Handle::autoflush(lib/IO/Handle.pm:479): 479: my $old = new SelectSaver qualify($_[0], caller); Symbol::qualify(lib/Symbol.pm:117): my ($name) = @_; Symbol::qualify(lib/Symbol.pm:118): if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { Symbol::qualify(lib/Symbol.pm:131): $name; SelectSaver::new(lib/SelectSaver.pm:42): 42: @_ >= 1 && @_ <= 2 or croak 'usage: SelectSaver->new( [FILEHANDLE] )'; SelectSaver::new(lib/SelectSaver.pm:43): 43: my $fh = select; SelectSaver::new(lib/SelectSaver.pm:44): 44: my $self = bless \$fh, $_[0]; SelectSaver::new(lib/SelectSaver.pm:45): 45: select qualify($_[1], caller) if @_ > 1; Symbol::qualify(lib/Symbol.pm:117): my ($name) = @_; Symbol::qualify(lib/Symbol.pm:118): if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { Symbol::qualify(lib/Symbol.pm:131): $name; SelectSaver::new(lib/SelectSaver.pm:46): 46: $self; IO::Handle::autoflush(lib/IO/Handle.pm:480): 480: my $prev = $|; IO::Handle::autoflush(lib/IO/Handle.pm:481): 481: $| = @_ > 1 ? $_[1] : 1; IO::Handle::autoflush(lib/IO/Handle.pm:482): 482: $prev; SelectSaver::DESTROY(lib/SelectSaver.pm:50): 50: my $self = $_[0]; SelectSaver::DESTROY(lib/SelectSaver.pm:51): 51: select $$self; IO::Socket::new(lib/IO/Socket.pm:46): 46: ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout}; IO::Socket::new(lib/IO/Socket.pm:46): 46: ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout}; IO::Socket::new(lib/IO/Socket.pm:48): 48: return scalar(%arg) ? $sock->configure(\%arg) 49: : $sock; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:138): 138: my($sock,$arg) = @_; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:139): 139: my($lport,$rport,$laddr,$raddr,$proto,$type); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:142): 142: $arg->{LocalAddr} = $arg->{LocalHost} 143: if exists $arg->{LocalHost} && !exists $arg->{LocalAddr}; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:145): 145: ($laddr,$lport,$proto) = _sock_info($arg->{LocalAddr}, 146: $arg->{LocalPort}, 147: $arg->{Proto}) 148: or return _error($sock, $!, $@); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:73): 73: my($addr,$port,$proto) = @_; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:74): 74: my $origport = $port; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:75): 75: my @serv = (); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:77): 77: $port = $1 78: if(defined $addr && $addr =~ s,:([\w\(\)/]+)$,,); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:80): 80: if(defined $proto && $proto =~ /\D/) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:81): 81: my $num = _get_proto_number($proto); IO::Socket::INET::_get_proto_number(lib/IO/Socket/INET.pm:49): 49: my $name = lc(shift); IO::Socket::INET::_get_proto_number(lib/IO/Socket/INET.pm:50): 50: return undef unless defined $name; IO::Socket::INET::_get_proto_number(lib/IO/Socket/INET.pm:51): 51: return $proto_number{$name} if exists $proto_number{$name}; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:82): 82: unless (defined $num) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:86): 86: $proto = $num; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:89): 89: if(defined $port) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:105): 105: return ($addr || undef, 106: $port || undef, 107: $proto || undef 108: ); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:150): 150: $laddr = defined $laddr ? inet_aton($laddr) 151: : INADDR_ANY; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:153): 153: return _error($sock, $EINVAL, "Bad hostname '",$arg->{LocalAddr},"'") 154: unless(defined $laddr); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:156): 156: $arg->{PeerAddr} = $arg->{PeerHost} 157: if exists $arg->{PeerHost} && !exists $arg->{PeerAddr}; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:159): 159: unless(exists $arg->{Listen}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:166): 166: $proto ||= _get_proto_number('tcp'); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:168): 168: $type = $arg->{Type} || $socket_type{lc _get_proto_name($proto)}; IO::Socket::INET::_get_proto_name(lib/IO/Socket/INET.pm:61): 61: my $num = shift; IO::Socket::INET::_get_proto_name(lib/IO/Socket/INET.pm:62): 62: return undef unless defined $num; IO::Socket::INET::_get_proto_name(lib/IO/Socket/INET.pm:63): 63: return $proto_name{$num} if exists $proto_name{$num}; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:170): 170: my @raddr = (); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:172): 172: if(defined $raddr) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:178): 178: while(1) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:180): 180: $sock->socket(AF_INET, $type, $proto) or 181: return _error($sock, $!, "$!"); IO::Socket::socket(lib/IO/Socket.pm:77): 77: @_ == 4 or croak 'usage: $sock->socket(DOMAIN, TYPE, PROTOCOL)'; IO::Socket::socket(lib/IO/Socket.pm:78): 78: my($sock,$domain,$type,$protocol) = @_; IO::Socket::socket(lib/IO/Socket.pm:80): 80: socket($sock,$domain,$type,$protocol) or 81: return undef; IO::Socket::socket(lib/IO/Socket.pm:83): 83: ${*$sock}{'io_socket_domain'} = $domain; IO::Socket::socket(lib/IO/Socket.pm:83): 83: ${*$sock}{'io_socket_domain'} = $domain; IO::Socket::socket(lib/IO/Socket.pm:84): 84: ${*$sock}{'io_socket_type'} = $type; IO::Socket::socket(lib/IO/Socket.pm:84): 84: ${*$sock}{'io_socket_type'} = $type; IO::Socket::socket(lib/IO/Socket.pm:85): 85: ${*$sock}{'io_socket_proto'} = $protocol; IO::Socket::socket(lib/IO/Socket.pm:85): 85: ${*$sock}{'io_socket_proto'} = $protocol; IO::Socket::socket(lib/IO/Socket.pm:87): 87: $sock; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:183): 183: if (defined $arg->{Blocking}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:188): 188: if ($arg->{Reuse} || $arg->{ReuseAddr}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:193): 193: if ($arg->{ReusePort}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:198): 198: if ($arg->{Broadcast}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:203): 203: if($lport || ($laddr ne INADDR_ANY) || exists $arg->{Listen}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:204): 204: $sock->bind($lport || 0, $laddr) or 205: return _error($sock, $!, "$!"); IO::Socket::INET::bind(lib/IO/Socket/INET.pm:261): 261: @_ == 2 || @_ == 3 or 262: croak 'usage: $sock->bind(NAME) or $sock->bind(PORT, ADDR)'; IO::Socket::INET::bind(lib/IO/Socket/INET.pm:263): 263: my $sock = shift; IO::Socket::INET::bind(lib/IO/Socket/INET.pm:264): 264: return $sock->SUPER::bind(@_ == 1 ? shift : pack_sockaddr_in(@_)) IO::Socket::bind(lib/IO/Socket.pm:199): 199: @_ == 2 or croak 'usage: $sock->bind(NAME)'; IO::Socket::bind(lib/IO/Socket.pm:200): 200: my $sock = shift; IO::Socket::bind(lib/IO/Socket.pm:201): 201: my $addr = shift; IO::Socket::bind(lib/IO/Socket.pm:203): 203: return bind($sock, $addr) ? $sock 204: : undef; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:208): 208: if(exists $arg->{Listen}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:209): 209: $sock->listen($arg->{Listen} || 5) or 210: return _error($sock, $!, "$!"); IO::Socket::listen(lib/IO/Socket.pm:208): 208: @_ >= 1 && @_ <= 2 or croak 'usage: $sock->listen([QUEUE])'; IO::Socket::listen(lib/IO/Socket.pm:209): 209: my($sock,$queue) = @_; IO::Socket::listen(lib/IO/Socket.pm:210): 210: $queue = 5 211: unless $queue && $queue > 0; IO::Socket::listen(lib/IO/Socket.pm:213): 213: return listen($sock, $queue) ? $sock 214: : undef; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:211): 211: last; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:250): 250: $sock; main::(ext\IO\t\io_sock.t:229): print "ok 16\n"; main::(ext\IO\t\io_sock.t:230): die if( !defined( $listen)); main::(ext\IO\t\io_sock.t:231): my $serverport = $listen->sockport; IO::Socket::INET::sockport(lib/IO/Socket/INET.pm:275): 275: @_ == 1 or croak 'usage: $sock->sockport()'; IO::Socket::INET::sockport(lib/IO/Socket/INET.pm:276): 276: my($sock) = @_; IO::Socket::INET::sockport(lib/IO/Socket/INET.pm:277): 277: my $name = $sock->sockname; IO::Socket::sockname(lib/IO/Socket.pm:245): 245: @_ == 1 or croak 'usage: $sock->sockname()'; IO::Socket::sockname(lib/IO/Socket.pm:246): 246: getsockname($_[0]); IO::Socket::INET::sockport(lib/IO/Socket/INET.pm:278): 278: $name ? (sockaddr_in($name))[0] : undef; Socket::sockaddr_in(lib/Socket.pm:392): 392: if (@_ == 6 && !wantarray) { # perl5.001m compat; use this && die Socket::sockaddr_in(lib/Socket.pm:398): 398: croak "usage: (port,iaddr) = sockaddr_in(sin_sv)" unless @_ == 1; Socket::sockaddr_in(lib/Socket.pm:399): 399: unpack_sockaddr_in(@_); main::(ext\IO\t\io_sock.t:232): my $server_pid = fork(); main::(ext\IO\t\io_sock.t:233): if( $server_pid) { main::(ext\IO\t\io_sock.t:237): print "ok 17\n"; main::(ext\IO\t\io_sock.t:242): $sock = IO::Socket::INET->new("localhost:$serverport") main::(ext\IO\t\io_sock.t:243): || IO::Socket::INET->new("127.0.0.1:$serverport"); IO::Socket::INET::new(lib/IO/Socket/INET.pm:35): 35: my $class = shift; IO::Socket::INET::new(lib/IO/Socket/INET.pm:36): 36: unshift(@_, "PeerAddr") if @_ == 1; IO::Socket::INET::new(lib/IO/Socket/INET.pm:37): 37: return $class->SUPER::new(@_); IO::Socket::new(lib/IO/Socket.pm:41): 41: my($class,%arg) = @_; IO::Socket::new(lib/IO/Socket.pm:42): 42: my $sock = $class->SUPER::new(); IO::Handle::new(lib/IO/Handle.pm:311): 311: my $class = ref($_[0]) || $_[0] || "IO::Handle"; IO::Handle::new(lib/IO/Handle.pm:312): 312: @_ == 1 or croak "usage: new $class"; IO::Handle::new(lib/IO/Handle.pm:313): 313: my $io = gensym; Symbol::gensym(lib/Symbol.pm:101): my $name = "GEN" . $genseq++; Symbol::gensym(lib/Symbol.pm:102): my $ref = \*{$genpkg . $name}; Symbol::gensym(lib/Symbol.pm:102): my $ref = \*{$genpkg . $name}; Symbol::gensym(lib/Symbol.pm:103): delete $$genpkg{$name}; Symbol::gensym(lib/Symbol.pm:104): $ref; IO::Handle::new(lib/IO/Handle.pm:314): 314: bless $io, $class; IO::Socket::new(lib/IO/Socket.pm:44): 44: $sock->autoflush(1); IO::Handle::autoflush(lib/IO/Handle.pm:479): 479: my $old = new SelectSaver qualify($_[0], caller); Symbol::qualify(lib/Symbol.pm:117): my ($name) = @_; Symbol::qualify(lib/Symbol.pm:118): if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { Symbol::qualify(lib/Symbol.pm:131): $name; SelectSaver::new(lib/SelectSaver.pm:42): 42: @_ >= 1 && @_ <= 2 or croak 'usage: SelectSaver->new( [FILEHANDLE] )'; SelectSaver::new(lib/SelectSaver.pm:43): 43: my $fh = select; SelectSaver::new(lib/SelectSaver.pm:44): 44: my $self = bless \$fh, $_[0]; SelectSaver::new(lib/SelectSaver.pm:45): 45: select qualify($_[1], caller) if @_ > 1; Symbol::qualify(lib/Symbol.pm:117): my ($name) = @_; Symbol::qualify(lib/Symbol.pm:118): if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { Symbol::qualify(lib/Symbol.pm:131): $name; SelectSaver::new(lib/SelectSaver.pm:46): 46: $self; IO::Handle::autoflush(lib/IO/Handle.pm:480): 480: my $prev = $|; IO::Handle::autoflush(lib/IO/Handle.pm:481): 481: $| = @_ > 1 ? $_[1] : 1; IO::Handle::autoflush(lib/IO/Handle.pm:482): 482: $prev; SelectSaver::DESTROY(lib/SelectSaver.pm:50): 50: my $self = $_[0]; SelectSaver::DESTROY(lib/SelectSaver.pm:51): 51: select $$self; IO::Socket::new(lib/IO/Socket.pm:46): 46: ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout}; IO::Socket::new(lib/IO/Socket.pm:46): 46: ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout}; IO::Socket::new(lib/IO/Socket.pm:48): 48: return scalar(%arg) ? $sock->configure(\%arg) 49: : $sock; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:138): 138: my($sock,$arg) = @_; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:139): 139: my($lport,$rport,$laddr,$raddr,$proto,$type); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:142): 142: $arg->{LocalAddr} = $arg->{LocalHost} 143: if exists $arg->{LocalHost} && !exists $arg->{LocalAddr}; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:145): 145: ($laddr,$lport,$proto) = _sock_info($arg->{LocalAddr}, 146: $arg->{LocalPort}, 147: $arg->{Proto}) 148: or return _error($sock, $!, $@); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:73): 73: my($addr,$port,$proto) = @_; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:74): 74: my $origport = $port; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:75): 75: my @serv = (); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:77): 77: $port = $1 78: if(defined $addr && $addr =~ s,:([\w\(\)/]+)$,,); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:80): 80: if(defined $proto && $proto =~ /\D/) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:89): 89: if(defined $port) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:105): 105: return ($addr || undef, 106: $port || undef, 107: $proto || undef 108: ); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:150): 150: $laddr = defined $laddr ? inet_aton($laddr) 151: : INADDR_ANY; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:153): 153: return _error($sock, $EINVAL, "Bad hostname '",$arg->{LocalAddr},"'") 154: unless(defined $laddr); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:156): 156: $arg->{PeerAddr} = $arg->{PeerHost} 157: if exists $arg->{PeerHost} && !exists $arg->{PeerAddr}; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:159): 159: unless(exists $arg->{Listen}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:160): 160: ($raddr,$rport,$proto) = _sock_info($arg->{PeerAddr}, 161: $arg->{PeerPort}, 162: $proto) 163: or return _error($sock, $!, $@); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:73): 73: my($addr,$port,$proto) = @_; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:74): 74: my $origport = $port; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:75): 75: my @serv = (); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:77): 77: $port = $1 78: if(defined $addr && $addr =~ s,:([\w\(\)/]+)$,,); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:80): 80: if(defined $proto && $proto =~ /\D/) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:89): 89: if(defined $port) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:90): 90: my $defport = ($port =~ s,\((\d+)\)$,,) ? $1 : undef; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:91): 91: my $pnum = ($port =~ m,^(\d+)$,)[0]; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:93): 93: @serv = getservbyname($port, _get_proto_name($proto) || "") 94: if ($port =~ m,\D,); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:96): 96: $port = $serv[2] || $defport || $pnum; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:97): 97: unless (defined $port) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:102): 102: $proto = _get_proto_number($serv[3]) if @serv && !$proto; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:105): 105: return ($addr || undef, 106: $port || undef, 107: $proto || undef 108: ); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:166): 166: $proto ||= _get_proto_number('tcp'); IO::Socket::INET::_get_proto_number(lib/IO/Socket/INET.pm:49): 49: my $name = lc(shift); IO::Socket::INET::_get_proto_number(lib/IO/Socket/INET.pm:50): 50: return undef unless defined $name; IO::Socket::INET::_get_proto_number(lib/IO/Socket/INET.pm:51): 51: return $proto_number{$name} if exists $proto_number{$name}; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:168): 168: $type = $arg->{Type} || $socket_type{lc _get_proto_name($proto)}; IO::Socket::INET::_get_proto_name(lib/IO/Socket/INET.pm:61): 61: my $num = shift; IO::Socket::INET::_get_proto_name(lib/IO/Socket/INET.pm:62): 62: return undef unless defined $num; IO::Socket::INET::_get_proto_name(lib/IO/Socket/INET.pm:63): 63: return $proto_name{$num} if exists $proto_name{$num}; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:170): 170: my @raddr = (); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:172): 172: if(defined $raddr) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:173): 173: @raddr = $sock->_get_addr($raddr, $arg->{MultiHomed}); IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:126): 126: my($sock,$addr_str, $multi) = @_; IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:127): 127: my @addr; IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:128): 128: if ($multi && $addr_str !~ /^\d+(?:\.\d+){3}$/) { IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:131): 131: my $h = inet_aton($addr_str); main::(ext\IO\t\io_sock.t:233): if( $server_pid) { main::(ext\IO\t\io_sock.t:343): SERVER_LOOP: while (1) { main::(ext\IO\t\io_sock.t:344): last SERVER_LOOP unless $sock = $listen->accept; IO::Socket::accept(lib/IO/Socket.pm:218): 218: @_ == 1 || @_ == 2 or croak 'usage $sock->accept([PKG])'; IO::Socket::accept(lib/IO/Socket.pm:219): 219: my $sock = shift; IO::Socket::accept(lib/IO/Socket.pm:220): 220: my $pkg = shift || $sock; IO::Socket::accept(lib/IO/Socket.pm:221): 221: my $timeout = ${*$sock}{'io_socket_timeout'}; IO::Socket::accept(lib/IO/Socket.pm:221): 221: my $timeout = ${*$sock}{'io_socket_timeout'}; IO::Socket::accept(lib/IO/Socket.pm:222): 222: my $new = $pkg->new(Timeout => $timeout); IO::Socket::INET::new(lib/IO/Socket/INET.pm:35): 35: my $class = shift; IO::Socket::INET::new(lib/IO/Socket/INET.pm:36): 36: unshift(@_, "PeerAddr") if @_ == 1; IO::Socket::INET::new(lib/IO/Socket/INET.pm:37): 37: return $class->SUPER::new(@_); IO::Socket::new(lib/IO/Socket.pm:41): 41: my($class,%arg) = @_; IO::Socket::new(lib/IO/Socket.pm:42): 42: my $sock = $class->SUPER::new(); IO::Handle::new(lib/IO/Handle.pm:311): 311: my $class = ref($_[0]) || $_[0] || "IO::Handle"; IO::Handle::new(lib/IO/Handle.pm:312): 312: @_ == 1 or croak "usage: new $class"; IO::Handle::new(lib/IO/Handle.pm:313): 313: my $io = gensym; Symbol::gensym(lib/Symbol.pm:101): my $name = "GEN" . $genseq++; Symbol::gensym(lib/Symbol.pm:102): my $ref = \*{$genpkg . $name}; Symbol::gensym(lib/Symbol.pm:102): my $ref = \*{$genpkg . $name}; Symbol::gensym(lib/Symbol.pm:103): delete $$genpkg{$name}; Symbol::gensym(lib/Symbol.pm:104): $ref; IO::Handle::new(lib/IO/Handle.pm:314): 314: bless $io, $class; IO::Socket::new(lib/IO/Socket.pm:44): 44: $sock->autoflush(1); IO::Handle::autoflush(lib/IO/Handle.pm:479): 479: my $old = new SelectSaver qualify($_[0], caller); Symbol::qualify(lib/Symbol.pm:117): my ($name) = @_; Symbol::qualify(lib/Symbol.pm:118): if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { Symbol::qualify(lib/Symbol.pm:131): $name; SelectSaver::new(lib/SelectSaver.pm:42): 42: @_ >= 1 && @_ <= 2 or croak 'usage: SelectSaver->new( [FILEHANDLE] )'; SelectSaver::new(lib/SelectSaver.pm:43): 43: my $fh = select; SelectSaver::new(lib/SelectSaver.pm:44): 44: my $self = bless \$fh, $_[0]; SelectSaver::new(lib/SelectSaver.pm:45): 45: select qualify($_[1], caller) if @_ > 1; Symbol::qualify(lib/Symbol.pm:117): my ($name) = @_; Symbol::qualify(lib/Symbol.pm:118): if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { Symbol::qualify(lib/Symbol.pm:131): $name; SelectSaver::new(lib/SelectSaver.pm:46): 46: $self; IO::Handle::autoflush(lib/IO/Handle.pm:480): 480: my $prev = $|; IO::Handle::autoflush(lib/IO/Handle.pm:481): 481: $| = @_ > 1 ? $_[1] : 1; IO::Handle::autoflush(lib/IO/Handle.pm:482): 482: $prev; SelectSaver::DESTROY(lib/SelectSaver.pm:50): 50: my $self = $_[0]; SelectSaver::DESTROY(lib/SelectSaver.pm:51): 51: select $$self; IO::Socket::new(lib/IO/Socket.pm:46): 46: ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout}; IO::Socket::new(lib/IO/Socket.pm:46): 46: ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout}; IO::Socket::new(lib/IO/Socket.pm:48): 48: return scalar(%arg) ? $sock->configure(\%arg) 49: : $sock; IO::Socket::accept(lib/IO/Socket.pm:223): 223: my $peer = undef; IO::Socket::accept(lib/IO/Socket.pm:225): 225: if(defined $timeout) { IO::Socket::accept(lib/IO/Socket.pm:226): 226: require IO::Select; IO::Socket::accept(lib/IO/Socket.pm:228): 228: my $sel = new IO::Select $sock; IO::Select::new(lib/IO/Select.pm:24): 24: my $self = shift; IO::Select::new(lib/IO/Select.pm:25): 25: my $type = ref($self) || $self; IO::Select::new(lib/IO/Select.pm:27): 27: my $vec = bless [undef,0], $type; IO::Select::new(lib/IO/Select.pm:29): 29: $vec->add(@_) 30: if @_; IO::Select::add(lib/IO/Select.pm:37): 37: shift->_update('add', @_); IO::Select::_update(lib/IO/Select.pm:66): 66: my $vec = shift; IO::Select::_update(lib/IO/Select.pm:67): 67: my $add = shift eq 'add'; IO::Select::_update(lib/IO/Select.pm:69): 69: my $bits = $vec->[VEC_BITS]; IO::Select::_update(lib/IO/Select.pm:70): 70: $bits = '' unless defined $bits; IO::Select::_update(lib/IO/Select.pm:72): 72: my $count = 0; IO::Select::_update(lib/IO/Select.pm:73): 73: my $f; IO::Select::_update(lib/IO/Select.pm:74): 74: foreach $f (@_) 75: { IO::Select::_update(lib/IO/Select.pm:76): 76: my $fn = $vec->_fileno($f); IO::Select::_fileno(lib/IO/Select.pm:58): 58: my($self, $f) = @_; IO::Select::_fileno(lib/IO/Select.pm:59): 59: return unless defined $f; IO::Select::_fileno(lib/IO/Select.pm:60): 60: $f = $f->[0] if ref($f) eq 'ARRAY'; IO::Select::_fileno(lib/IO/Select.pm:61): 61: ($f =~ /^\d+$/) ? $f : fileno($f); IO::Select::_update(lib/IO/Select.pm:77): 77: next unless defined $fn; IO::Select::_update(lib/IO/Select.pm:78): 78: my $i = $fn + FIRST_FD; IO::Select::_update(lib/IO/Select.pm:79): 79: if ($add) { IO::Select::_update(lib/IO/Select.pm:80): 80: if (defined $vec->[$i]) { IO::Select::_update(lib/IO/Select.pm:84): 84: $vec->[FD_COUNT]++; IO::Select::_update(lib/IO/Select.pm:85): 85: vec($bits, $fn, 1) = 1; IO::Select::_update(lib/IO/Select.pm:86): 86: $vec->[$i] = $f; IO::Select::_update(lib/IO/Select.pm:93): 93: $count++; IO::Select::_update(lib/IO/Select.pm:95): 95: $vec->[VEC_BITS] = $vec->[FD_COUNT] ? $bits : undef; IO::Select::_update(lib/IO/Select.pm:96): 96: $count; IO::Select::new(lib/IO/Select.pm:32): 32: $vec; IO::Socket::accept(lib/IO/Socket.pm:230): 230: unless ($sel->can_read($timeout)) { IO::Select::can_read(lib/IO/Select.pm:101): 101: my $vec = shift; IO::Select::can_read(lib/IO/Select.pm:102): 102: my $timeout = shift; IO::Select::can_read(lib/IO/Select.pm:103): 103: my $r = $vec->[VEC_BITS]; IO::Select::can_read(lib/IO/Select.pm:105): 105: defined($r) && (select($r,undef,undef,$timeout) > 0) 106: ? handles($vec, $r) 107: : (); IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:132): 132: push(@addr, $h) if defined $h; IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:134): 134: @addr; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:174): 174: return _error($sock, $EINVAL, "Bad hostname '",$arg->{PeerAddr},"'") 175: unless @raddr; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:178): 178: while(1) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:180): 180: $sock->socket(AF_INET, $type, $proto) or 181: return _error($sock, $!, "$!"); IO::Socket::socket(lib/IO/Socket.pm:77): 77: @_ == 4 or croak 'usage: $sock->socket(DOMAIN, TYPE, PROTOCOL)'; IO::Socket::socket(lib/IO/Socket.pm:78): 78: my($sock,$domain,$type,$protocol) = @_; IO::Socket::socket(lib/IO/Socket.pm:80): 80: socket($sock,$domain,$type,$protocol) or 81: return undef; IO::Socket::socket(lib/IO/Socket.pm:83): 83: ${*$sock}{'io_socket_domain'} = $domain; IO::Socket::socket(lib/IO/Socket.pm:83): 83: ${*$sock}{'io_socket_domain'} = $domain; IO::Socket::socket(lib/IO/Socket.pm:84): 84: ${*$sock}{'io_socket_type'} = $type; IO::Socket::socket(lib/IO/Socket.pm:84): 84: ${*$sock}{'io_socket_type'} = $type; IO::Socket::socket(lib/IO/Socket.pm:85): 85: ${*$sock}{'io_socket_proto'} = $protocol; IO::Socket::socket(lib/IO/Socket.pm:85): 85: ${*$sock}{'io_socket_proto'} = $protocol; IO::Socket::socket(lib/IO/Socket.pm:87): 87: $sock; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:183): 183: if (defined $arg->{Blocking}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:188): 188: if ($arg->{Reuse} || $arg->{ReuseAddr}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:193): 193: if ($arg->{ReusePort}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:198): 198: if ($arg->{Broadcast}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:203): 203: if($lport || ($laddr ne INADDR_ANY) || exists $arg->{Listen}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:208): 208: if(exists $arg->{Listen}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:215): 215: last unless exists($arg->{PeerAddr}); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:217): 217: $raddr = shift @raddr; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:219): 219: return _error($sock, $EINVAL, 'Cannot determine remote port') 220: unless($rport || $type == SOCK_DGRAM || $type == SOCK_RAW); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:223): 223: unless($type == SOCK_STREAM || defined $raddr); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:225): 225: return _error($sock, $EINVAL, "Bad hostname '",$arg->{PeerAddr},"'") 226: unless defined $raddr; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:231): 231: undef $@; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:232): 232: if ($sock->connect(pack_sockaddr_in($rport, $raddr))) { IO::Socket::INET::connect(lib/IO/Socket/INET.pm:254): 254: @_ == 2 || @_ == 3 or 255: croak 'usage: $sock->connect(NAME) or $sock->connect(PORT, ADDR)'; IO::Socket::INET::connect(lib/IO/Socket/INET.pm:256): 256: my $sock = shift; IO::Socket::INET::connect(lib/IO/Socket/INET.pm:257): 257: return $sock->SUPER::connect(@_ == 1 ? shift : pack_sockaddr_in(@_)); IO::Socket::connect(lib/IO/Socket.pm:106): 106: @_ == 2 or croak 'usage: $sock->connect(NAME)'; IO::Socket::connect(lib/IO/Socket.pm:107): 107: my $sock = shift; IO::Socket::connect(lib/IO/Socket.pm:108): 108: my $addr = shift; IO::Socket::connect(lib/IO/Socket.pm:109): 109: my $timeout = ${*$sock}{'io_socket_timeout'}; IO::Socket::connect(lib/IO/Socket.pm:109): 109: my $timeout = ${*$sock}{'io_socket_timeout'}; IO::Socket::connect(lib/IO/Socket.pm:110): 110: my $err; IO::Socket::connect(lib/IO/Socket.pm:111): 111: my $blocking; IO::Socket::connect(lib/IO/Socket.pm:113): 113: $blocking = $sock->blocking(0) if $timeout; IO::Socket::connect(lib/IO/Socket.pm:114): 114: if (!connect($sock, $addr)) { IO::Socket::connect(lib/IO/Socket.pm:141): 141: $sock->blocking(1) if $blocking; IO::Select::handles(lib/IO/Select.pm:219): 219: my $vec = shift; IO::Socket::connect(lib/IO/Socket.pm:143): 143: $! = $err if $err; IO::Select::handles(lib/IO/Select.pm:220): 220: my $bits = shift; IO::Socket::connect(lib/IO/Socket.pm:145): 145: $err ? undef : $sock; IO::Select::handles(lib/IO/Select.pm:221): 221: my @h = (); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:234): 234: return $sock; IO::Select::handles(lib/IO/Select.pm:222): 222: my $i; main::(ext\IO\t\io_sock.t:245): if ($sock) { IO::Select::handles(lib/IO/Select.pm:223): 223: my $max = scalar(@$vec) - 1; main::(ext\IO\t\io_sock.t:246): $sock->print("send\n"); IO::Select::handles(lib/IO/Select.pm:230): 230: } IO::Handle::print(lib/IO/Handle.pm:404): 404: @_ or croak 'usage: $io->print(ARGS)'; IO::Select::handles(lib/IO/Select.pm:225): 225: for ($i = FIRST_FD; $i <= $max; $i++) 226: { IO::Handle::print(lib/IO/Handle.pm:405): 405: my $this = shift; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Handle::print(lib/IO/Handle.pm:406): 406: print $this @_; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; main::(ext\IO\t\io_sock.t:248): my @array = (); IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; main::(ext\IO\t\io_sock.t:249): while( <$sock>) { IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Select::handles(lib/IO/Select.pm:228): 228: push(@h, $vec->[$i]) 229: if !defined($bits) || vec($bits, $i - FIRST_FD, 1); IO::Select::handles(lib/IO/Select.pm:232): 232: @h; IO::Socket::accept(lib/IO/Socket.pm:237): 237: $peer = accept($new,$sock) 238: or return; IO::Socket::accept(lib/IO/Socket.pm:240): 240: return wantarray ? ($new, $peer) 241: : $new; main::(ext\IO\t\io_sock.t:347): if ($has_perlio) { binmode($sock, ":utf8") or die } main::(ext\IO\t\io_sock.t:347): if ($has_perlio) { binmode($sock, ":utf8") or die } main::(ext\IO\t\io_sock.t:348): while (<$sock>) { main::(ext\IO\t\io_sock.t:349): last SERVER_LOOP if /^quit/; main::(ext\IO\t\io_sock.t:350): last if /^done/; main::(ext\IO\t\io_sock.t:351): if (/^ping (.+)/) { main::(ext\IO\t\io_sock.t:355): if (/^ord (.+)/) { main::(ext\IO\t\io_sock.t:359): if (/^chr (.+)/) { main::(ext\IO\t\io_sock.t:363): if (/^send/) { main::(ext\IO\t\io_sock.t:364): print $sock @data; main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:365): last; main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:369): $sock = undef; main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:344): last SERVER_LOOP unless $sock = $listen->accept; main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Socket::accept(lib/IO/Socket.pm:218): 218: @_ == 1 || @_ == 2 or croak 'usage $sock->accept([PKG])'; main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Socket::accept(lib/IO/Socket.pm:219): 219: my $sock = shift; main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Socket::accept(lib/IO/Socket.pm:220): 220: my $pkg = shift || $sock; main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Socket::accept(lib/IO/Socket.pm:221): 221: my $timeout = ${*$sock}{'io_socket_timeout'}; main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Socket::accept(lib/IO/Socket.pm:221): 221: my $timeout = ${*$sock}{'io_socket_timeout'}; main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Socket::accept(lib/IO/Socket.pm:222): 222: my $new = $pkg->new(Timeout => $timeout); main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Socket::INET::new(lib/IO/Socket/INET.pm:35): 35: my $class = shift; main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Socket::INET::new(lib/IO/Socket/INET.pm:36): 36: unshift(@_, "PeerAddr") if @_ == 1; main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Socket::INET::new(lib/IO/Socket/INET.pm:37): 37: return $class->SUPER::new(@_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Socket::new(lib/IO/Socket.pm:41): 41: my($class,%arg) = @_; main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Socket::new(lib/IO/Socket.pm:42): 42: my $sock = $class->SUPER::new(); main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Handle::new(lib/IO/Handle.pm:311): 311: my $class = ref($_[0]) || $_[0] || "IO::Handle"; main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Handle::new(lib/IO/Handle.pm:312): 312: @_ == 1 or croak "usage: new $class"; main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Handle::new(lib/IO/Handle.pm:313): 313: my $io = gensym; main::(ext\IO\t\io_sock.t:250): push( @array, $_); Symbol::gensym(lib/Symbol.pm:101): my $name = "GEN" . $genseq++; main::(ext\IO\t\io_sock.t:250): push( @array, $_); Symbol::gensym(lib/Symbol.pm:102): my $ref = \*{$genpkg . $name}; main::(ext\IO\t\io_sock.t:250): push( @array, $_); Symbol::gensym(lib/Symbol.pm:102): my $ref = \*{$genpkg . $name}; main::(ext\IO\t\io_sock.t:250): push( @array, $_); Symbol::gensym(lib/Symbol.pm:103): delete $$genpkg{$name}; main::(ext\IO\t\io_sock.t:250): push( @array, $_); Symbol::gensym(lib/Symbol.pm:104): $ref; main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Handle::new(lib/IO/Handle.pm:314): 314: bless $io, $class; main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Socket::new(lib/IO/Socket.pm:44): 44: $sock->autoflush(1); main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Handle::autoflush(lib/IO/Handle.pm:479): 479: my $old = new SelectSaver qualify($_[0], caller); main::(ext\IO\t\io_sock.t:250): push( @array, $_); Symbol::qualify(lib/Symbol.pm:117): my ($name) = @_; main::(ext\IO\t\io_sock.t:250): push( @array, $_); Symbol::qualify(lib/Symbol.pm:118): if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); Symbol::qualify(lib/Symbol.pm:131): $name; main::(ext\IO\t\io_sock.t:250): push( @array, $_); SelectSaver::new(lib/SelectSaver.pm:42): 42: @_ >= 1 && @_ <= 2 or croak 'usage: SelectSaver->new( [FILEHANDLE] )'; main::(ext\IO\t\io_sock.t:250): push( @array, $_); SelectSaver::new(lib/SelectSaver.pm:43): 43: my $fh = select; main::(ext\IO\t\io_sock.t:250): push( @array, $_); SelectSaver::new(lib/SelectSaver.pm:44): 44: my $self = bless \$fh, $_[0]; main::(ext\IO\t\io_sock.t:250): push( @array, $_); SelectSaver::new(lib/SelectSaver.pm:45): 45: select qualify($_[1], caller) if @_ > 1; main::(ext\IO\t\io_sock.t:250): push( @array, $_); Symbol::qualify(lib/Symbol.pm:117): my ($name) = @_; main::(ext\IO\t\io_sock.t:250): push( @array, $_); Symbol::qualify(lib/Symbol.pm:118): if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { main::(ext\IO\t\io_sock.t:250): push( @array, $_); Symbol::qualify(lib/Symbol.pm:131): $name; main::(ext\IO\t\io_sock.t:250): push( @array, $_); SelectSaver::new(lib/SelectSaver.pm:46): 46: $self; main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Handle::autoflush(lib/IO/Handle.pm:480): 480: my $prev = $|; main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Handle::autoflush(lib/IO/Handle.pm:481): 481: $| = @_ > 1 ? $_[1] : 1; main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Handle::autoflush(lib/IO/Handle.pm:482): 482: $prev; main::(ext\IO\t\io_sock.t:250): push( @array, $_); SelectSaver::DESTROY(lib/SelectSaver.pm:50): 50: my $self = $_[0]; main::(ext\IO\t\io_sock.t:250): push( @array, $_); SelectSaver::DESTROY(lib/SelectSaver.pm:51): 51: select $$self; main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Socket::new(lib/IO/Socket.pm:46): 46: ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout}; main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Socket::new(lib/IO/Socket.pm:46): 46: ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout}; main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Socket::new(lib/IO/Socket.pm:48): 48: return scalar(%arg) ? $sock->configure(\%arg) 49: : $sock; main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Socket::accept(lib/IO/Socket.pm:223): 223: my $peer = undef; main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Socket::accept(lib/IO/Socket.pm:225): 225: if(defined $timeout) { main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Socket::accept(lib/IO/Socket.pm:226): 226: require IO::Select; main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Socket::accept(lib/IO/Socket.pm:228): 228: my $sel = new IO::Select $sock; main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Select::new(lib/IO/Select.pm:24): 24: my $self = shift; main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Select::new(lib/IO/Select.pm:25): 25: my $type = ref($self) || $self; main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Select::new(lib/IO/Select.pm:27): 27: my $vec = bless [undef,0], $type; main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Select::new(lib/IO/Select.pm:29): 29: $vec->add(@_) 30: if @_; main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Select::add(lib/IO/Select.pm:37): 37: shift->_update('add', @_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Select::_update(lib/IO/Select.pm:66): 66: my $vec = shift; main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Select::_update(lib/IO/Select.pm:67): 67: my $add = shift eq 'add'; main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Select::_update(lib/IO/Select.pm:69): 69: my $bits = $vec->[VEC_BITS]; main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Select::_update(lib/IO/Select.pm:70): 70: $bits = '' unless defined $bits; main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Select::_update(lib/IO/Select.pm:72): 72: my $count = 0; main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Select::_update(lib/IO/Select.pm:73): 73: my $f; main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Select::_update(lib/IO/Select.pm:74): 74: foreach $f (@_) 75: { main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Select::_update(lib/IO/Select.pm:76): 76: my $fn = $vec->_fileno($f); main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Select::_fileno(lib/IO/Select.pm:58): 58: my($self, $f) = @_; main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Select::_fileno(lib/IO/Select.pm:59): 59: return unless defined $f; main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Select::_fileno(lib/IO/Select.pm:60): 60: $f = $f->[0] if ref($f) eq 'ARRAY'; main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Select::_fileno(lib/IO/Select.pm:61): 61: ($f =~ /^\d+$/) ? $f : fileno($f); main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Select::_update(lib/IO/Select.pm:77): 77: next unless defined $fn; main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Select::_update(lib/IO/Select.pm:78): 78: my $i = $fn + FIRST_FD; main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Select::_update(lib/IO/Select.pm:79): 79: if ($add) { main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Select::_update(lib/IO/Select.pm:80): 80: if (defined $vec->[$i]) { main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Select::_update(lib/IO/Select.pm:84): 84: $vec->[FD_COUNT]++; main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Select::_update(lib/IO/Select.pm:85): 85: vec($bits, $fn, 1) = 1; main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Select::_update(lib/IO/Select.pm:86): 86: $vec->[$i] = $f; main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Select::_update(lib/IO/Select.pm:93): 93: $count++; main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Select::_update(lib/IO/Select.pm:95): 95: $vec->[VEC_BITS] = $vec->[FD_COUNT] ? $bits : undef; main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Select::_update(lib/IO/Select.pm:96): 96: $count; main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Select::new(lib/IO/Select.pm:32): 32: $vec; main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Socket::accept(lib/IO/Socket.pm:230): 230: unless ($sel->can_read($timeout)) { main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Select::can_read(lib/IO/Select.pm:101): 101: my $vec = shift; main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Select::can_read(lib/IO/Select.pm:102): 102: my $timeout = shift; main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Select::can_read(lib/IO/Select.pm:103): 103: my $r = $vec->[VEC_BITS]; main::(ext\IO\t\io_sock.t:250): push( @array, $_); IO::Select::can_read(lib/IO/Select.pm:105): 105: defined($r) && (select($r,undef,undef,$timeout) > 0) 106: ? handles($vec, $r) 107: : (); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:250): push( @array, $_); main::(ext\IO\t\io_sock.t:253): $sock->print("done\n"); IO::Handle::print(lib/IO/Handle.pm:404): 404: @_ or croak 'usage: $io->print(ARGS)'; IO::Handle::print(lib/IO/Handle.pm:405): 405: my $this = shift; IO::Handle::print(lib/IO/Handle.pm:406): 406: print $this @_; main::(ext\IO\t\io_sock.t:254): $sock->close; IO::Socket::close(lib/IO/Socket.pm:192): 192: @_ == 1 or croak 'usage: $sock->close()'; IO::Socket::close(lib/IO/Socket.pm:193): 193: my $sock = shift; IO::Socket::close(lib/IO/Socket.pm:194): 194: ${*$sock}{'io_socket_peername'} = undef; IO::Socket::close(lib/IO/Socket.pm:194): 194: ${*$sock}{'io_socket_peername'} = undef; IO::Socket::close(lib/IO/Socket.pm:195): 195: $sock->SUPER::close(); IO::Handle::close(lib/IO/Handle.pm:370): 370: @_ == 1 or croak 'usage: $io->close()'; IO::Handle::close(lib/IO/Handle.pm:371): 371: my($io) = @_; IO::Handle::close(lib/IO/Handle.pm:373): 373: close($io); main::(ext\IO\t\io_sock.t:256): print "not " if( @array != @data); main::(ext\IO\t\io_sock.t:260): print "ok 18\n"; main::(ext\IO\t\io_sock.t:274): $sock = IO::Socket::INET->new("localhost:$serverport") main::(ext\IO\t\io_sock.t:275): || IO::Socket::INET->new("127.0.0.1:$serverport"); IO::Socket::INET::new(lib/IO/Socket/INET.pm:35): 35: my $class = shift; IO::Socket::INET::new(lib/IO/Socket/INET.pm:36): 36: unshift(@_, "PeerAddr") if @_ == 1; IO::Socket::INET::new(lib/IO/Socket/INET.pm:37): 37: return $class->SUPER::new(@_); IO::Socket::new(lib/IO/Socket.pm:41): 41: my($class,%arg) = @_; IO::Socket::new(lib/IO/Socket.pm:42): 42: my $sock = $class->SUPER::new(); IO::Handle::new(lib/IO/Handle.pm:311): 311: my $class = ref($_[0]) || $_[0] || "IO::Handle"; IO::Handle::new(lib/IO/Handle.pm:312): 312: @_ == 1 or croak "usage: new $class"; IO::Handle::new(lib/IO/Handle.pm:313): 313: my $io = gensym; Symbol::gensym(lib/Symbol.pm:101): my $name = "GEN" . $genseq++; Symbol::gensym(lib/Symbol.pm:102): my $ref = \*{$genpkg . $name}; Symbol::gensym(lib/Symbol.pm:102): my $ref = \*{$genpkg . $name}; Symbol::gensym(lib/Symbol.pm:103): delete $$genpkg{$name}; Symbol::gensym(lib/Symbol.pm:104): $ref; IO::Handle::new(lib/IO/Handle.pm:314): 314: bless $io, $class; IO::Socket::new(lib/IO/Socket.pm:44): 44: $sock->autoflush(1); IO::Handle::autoflush(lib/IO/Handle.pm:479): 479: my $old = new SelectSaver qualify($_[0], caller); Symbol::qualify(lib/Symbol.pm:117): my ($name) = @_; Symbol::qualify(lib/Symbol.pm:118): if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { Symbol::qualify(lib/Symbol.pm:131): $name; SelectSaver::new(lib/SelectSaver.pm:42): 42: @_ >= 1 && @_ <= 2 or croak 'usage: SelectSaver->new( [FILEHANDLE] )'; SelectSaver::new(lib/SelectSaver.pm:43): 43: my $fh = select; SelectSaver::new(lib/SelectSaver.pm:44): 44: my $self = bless \$fh, $_[0]; SelectSaver::new(lib/SelectSaver.pm:45): 45: select qualify($_[1], caller) if @_ > 1; Symbol::qualify(lib/Symbol.pm:117): my ($name) = @_; Symbol::qualify(lib/Symbol.pm:118): if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { Symbol::qualify(lib/Symbol.pm:131): $name; SelectSaver::new(lib/SelectSaver.pm:46): 46: $self; IO::Handle::autoflush(lib/IO/Handle.pm:480): 480: my $prev = $|; IO::Handle::autoflush(lib/IO/Handle.pm:481): 481: $| = @_ > 1 ? $_[1] : 1; IO::Handle::autoflush(lib/IO/Handle.pm:482): 482: $prev; SelectSaver::DESTROY(lib/SelectSaver.pm:50): 50: my $self = $_[0]; SelectSaver::DESTROY(lib/SelectSaver.pm:51): 51: select $$self; IO::Socket::new(lib/IO/Socket.pm:46): 46: ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout}; IO::Socket::new(lib/IO/Socket.pm:46): 46: ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout}; IO::Socket::new(lib/IO/Socket.pm:48): 48: return scalar(%arg) ? $sock->configure(\%arg) 49: : $sock; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:138): 138: my($sock,$arg) = @_; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:139): 139: my($lport,$rport,$laddr,$raddr,$proto,$type); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:142): 142: $arg->{LocalAddr} = $arg->{LocalHost} 143: if exists $arg->{LocalHost} && !exists $arg->{LocalAddr}; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:145): 145: ($laddr,$lport,$proto) = _sock_info($arg->{LocalAddr}, 146: $arg->{LocalPort}, 147: $arg->{Proto}) 148: or return _error($sock, $!, $@); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:73): 73: my($addr,$port,$proto) = @_; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:74): 74: my $origport = $port; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:75): 75: my @serv = (); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:77): 77: $port = $1 78: if(defined $addr && $addr =~ s,:([\w\(\)/]+)$,,); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:80): 80: if(defined $proto && $proto =~ /\D/) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:89): 89: if(defined $port) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:105): 105: return ($addr || undef, 106: $port || undef, 107: $proto || undef 108: ); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:150): 150: $laddr = defined $laddr ? inet_aton($laddr) 151: : INADDR_ANY; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:153): 153: return _error($sock, $EINVAL, "Bad hostname '",$arg->{LocalAddr},"'") 154: unless(defined $laddr); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:156): 156: $arg->{PeerAddr} = $arg->{PeerHost} 157: if exists $arg->{PeerHost} && !exists $arg->{PeerAddr}; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:159): 159: unless(exists $arg->{Listen}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:160): 160: ($raddr,$rport,$proto) = _sock_info($arg->{PeerAddr}, 161: $arg->{PeerPort}, 162: $proto) 163: or return _error($sock, $!, $@); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:73): 73: my($addr,$port,$proto) = @_; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:74): 74: my $origport = $port; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:75): 75: my @serv = (); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:77): 77: $port = $1 78: if(defined $addr && $addr =~ s,:([\w\(\)/]+)$,,); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:80): 80: if(defined $proto && $proto =~ /\D/) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:89): 89: if(defined $port) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:90): 90: my $defport = ($port =~ s,\((\d+)\)$,,) ? $1 : undef; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:91): 91: my $pnum = ($port =~ m,^(\d+)$,)[0]; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:93): 93: @serv = getservbyname($port, _get_proto_name($proto) || "") 94: if ($port =~ m,\D,); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:96): 96: $port = $serv[2] || $defport || $pnum; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:97): 97: unless (defined $port) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:102): 102: $proto = _get_proto_number($serv[3]) if @serv && !$proto; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:105): 105: return ($addr || undef, 106: $port || undef, 107: $proto || undef 108: ); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:166): 166: $proto ||= _get_proto_number('tcp'); IO::Socket::INET::_get_proto_number(lib/IO/Socket/INET.pm:49): 49: my $name = lc(shift); IO::Socket::INET::_get_proto_number(lib/IO/Socket/INET.pm:50): 50: return undef unless defined $name; IO::Socket::INET::_get_proto_number(lib/IO/Socket/INET.pm:51): 51: return $proto_number{$name} if exists $proto_number{$name}; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:168): 168: $type = $arg->{Type} || $socket_type{lc _get_proto_name($proto)}; IO::Socket::INET::_get_proto_name(lib/IO/Socket/INET.pm:61): 61: my $num = shift; IO::Socket::INET::_get_proto_name(lib/IO/Socket/INET.pm:62): 62: return undef unless defined $num; IO::Socket::INET::_get_proto_name(lib/IO/Socket/INET.pm:63): 63: return $proto_name{$num} if exists $proto_name{$num}; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:170): 170: my @raddr = (); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:172): 172: if(defined $raddr) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:173): 173: @raddr = $sock->_get_addr($raddr, $arg->{MultiHomed}); IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:126): 126: my($sock,$addr_str, $multi) = @_; IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:127): 127: my @addr; IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:128): 128: if ($multi && $addr_str !~ /^\d+(?:\.\d+){3}$/) { IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:131): 131: my $h = inet_aton($addr_str); IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:132): 132: push(@addr, $h) if defined $h; IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:134): 134: @addr; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:174): 174: return _error($sock, $EINVAL, "Bad hostname '",$arg->{PeerAddr},"'") 175: unless @raddr; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:178): 178: while(1) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:180): 180: $sock->socket(AF_INET, $type, $proto) or 181: return _error($sock, $!, "$!"); IO::Socket::socket(lib/IO/Socket.pm:77): 77: @_ == 4 or croak 'usage: $sock->socket(DOMAIN, TYPE, PROTOCOL)'; IO::Socket::socket(lib/IO/Socket.pm:78): 78: my($sock,$domain,$type,$protocol) = @_; IO::Socket::socket(lib/IO/Socket.pm:80): 80: socket($sock,$domain,$type,$protocol) or 81: return undef; IO::Socket::socket(lib/IO/Socket.pm:83): 83: ${*$sock}{'io_socket_domain'} = $domain; IO::Socket::socket(lib/IO/Socket.pm:83): 83: ${*$sock}{'io_socket_domain'} = $domain; IO::Socket::socket(lib/IO/Socket.pm:84): 84: ${*$sock}{'io_socket_type'} = $type; IO::Socket::socket(lib/IO/Socket.pm:84): 84: ${*$sock}{'io_socket_type'} = $type; IO::Socket::socket(lib/IO/Socket.pm:85): 85: ${*$sock}{'io_socket_proto'} = $protocol; IO::Socket::socket(lib/IO/Socket.pm:85): 85: ${*$sock}{'io_socket_proto'} = $protocol; IO::Socket::socket(lib/IO/Socket.pm:87): 87: $sock; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:183): 183: if (defined $arg->{Blocking}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:188): 188: if ($arg->{Reuse} || $arg->{ReuseAddr}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:193): 193: if ($arg->{ReusePort}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:198): 198: if ($arg->{Broadcast}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:203): 203: if($lport || ($laddr ne INADDR_ANY) || exists $arg->{Listen}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:208): 208: if(exists $arg->{Listen}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:215): 215: last unless exists($arg->{PeerAddr}); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:217): 217: $raddr = shift @raddr; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:219): 219: return _error($sock, $EINVAL, 'Cannot determine remote port') 220: unless($rport || $type == SOCK_DGRAM || $type == SOCK_RAW); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:223): 223: unless($type == SOCK_STREAM || defined $raddr); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:225): 225: return _error($sock, $EINVAL, "Bad hostname '",$arg->{PeerAddr},"'") 226: unless defined $raddr; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:231): 231: undef $@; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:232): 232: if ($sock->connect(pack_sockaddr_in($rport, $raddr))) { IO::Socket::INET::connect(lib/IO/Socket/INET.pm:254): 254: @_ == 2 || @_ == 3 or 255: croak 'usage: $sock->connect(NAME) or $sock->connect(PORT, ADDR)'; IO::Socket::INET::connect(lib/IO/Socket/INET.pm:256): 256: my $sock = shift; IO::Socket::INET::connect(lib/IO/Socket/INET.pm:257): 257: return $sock->SUPER::connect(@_ == 1 ? shift : pack_sockaddr_in(@_)); IO::Socket::connect(lib/IO/Socket.pm:106): 106: @_ == 2 or croak 'usage: $sock->connect(NAME)'; IO::Socket::connect(lib/IO/Socket.pm:107): 107: my $sock = shift; IO::Socket::connect(lib/IO/Socket.pm:108): 108: my $addr = shift; IO::Socket::connect(lib/IO/Socket.pm:109): 109: my $timeout = ${*$sock}{'io_socket_timeout'}; IO::Socket::connect(lib/IO/Socket.pm:109): 109: my $timeout = ${*$sock}{'io_socket_timeout'}; IO::Socket::connect(lib/IO/Socket.pm:110): 110: my $err; IO::Socket::connect(lib/IO/Socket.pm:111): 111: my $blocking; IO::Socket::connect(lib/IO/Socket.pm:113): 113: $blocking = $sock->blocking(0) if $timeout; IO::Socket::connect(lib/IO/Socket.pm:114): 114: if (!connect($sock, $addr)) { IO::Socket::connect(lib/IO/Socket.pm:141): 141: $sock->blocking(1) if $blocking; IO::Select::handles(lib/IO/Select.pm:219): 219: my $vec = shift; IO::Socket::connect(lib/IO/Socket.pm:143): 143: $! = $err if $err; IO::Select::handles(lib/IO/Select.pm:220): 220: my $bits = shift; IO::Socket::connect(lib/IO/Socket.pm:145): 145: $err ? undef : $sock; IO::Select::handles(lib/IO/Select.pm:221): 221: my @h = (); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:234): 234: return $sock; IO::Select::handles(lib/IO/Select.pm:222): 222: my $i; main::(ext\IO\t\io_sock.t:277): if ($has_perlio) { IO::Select::handles(lib/IO/Select.pm:223): 223: my $max = scalar(@$vec) - 1; main::(ext\IO\t\io_sock.t:278): print binmode($sock, ":utf8") ? "ok 19\n" : "not ok 19\n"; IO::Select::handles(lib/IO/Select.pm:230): 230: } IO::Select::handles(lib/IO/Select.pm:225): 225: for ($i = FIRST_FD; $i <= $max; $i++) main::(ext\IO\t\io_sock.t:283): if ($sock) { 226: { main::(ext\IO\t\io_sock.t:285): if ($has_perlio) { IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; main::(ext\IO\t\io_sock.t:286): $sock->print("ping \x{100}\n"); IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Handle::print(lib/IO/Handle.pm:404): 404: @_ or croak 'usage: $io->print(ARGS)'; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Handle::print(lib/IO/Handle.pm:405): 405: my $this = shift; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Handle::print(lib/IO/Handle.pm:406): 406: print $this @_; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; main::(ext\IO\t\io_sock.t:287): chomp(my $pong = scalar <$sock>); IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Select::handles(lib/IO/Select.pm:228): 228: push(@h, $vec->[$i]) 229: if !defined($bits) || vec($bits, $i - FIRST_FD, 1); IO::Select::handles(lib/IO/Select.pm:232): 232: @h; IO::Socket::accept(lib/IO/Socket.pm:237): 237: $peer = accept($new,$sock) 238: or return; IO::Socket::accept(lib/IO/Socket.pm:240): 240: return wantarray ? ($new, $peer) 241: : $new; main::(ext\IO\t\io_sock.t:347): if ($has_perlio) { binmode($sock, ":utf8") or die } main::(ext\IO\t\io_sock.t:347): if ($has_perlio) { binmode($sock, ":utf8") or die } main::(ext\IO\t\io_sock.t:348): while (<$sock>) { main::(ext\IO\t\io_sock.t:349): last SERVER_LOOP if /^quit/; main::(ext\IO\t\io_sock.t:350): last if /^done/; main::(ext\IO\t\io_sock.t:351): if (/^ping (.+)/) { main::(ext\IO\t\io_sock.t:352): print $sock "pong $1\n"; main::(ext\IO\t\io_sock.t:353): next; main::(ext\IO\t\io_sock.t:288): print $pong =~ /^pong (.+)$/ && $1 eq "\x{100}" ? main::(ext\IO\t\io_sock.t:289): "ok 20\n" : "not ok 20\n"; main::(ext\IO\t\io_sock.t:291): $sock->print("ord \x{100}\n"); IO::Handle::print(lib/IO/Handle.pm:404): 404: @_ or croak 'usage: $io->print(ARGS)'; IO::Handle::print(lib/IO/Handle.pm:405): 405: my $this = shift; IO::Handle::print(lib/IO/Handle.pm:406): 406: print $this @_; main::(ext\IO\t\io_sock.t:292): chomp(my $ord = scalar <$sock>); main::(ext\IO\t\io_sock.t:349): last SERVER_LOOP if /^quit/; main::(ext\IO\t\io_sock.t:350): last if /^done/; main::(ext\IO\t\io_sock.t:351): if (/^ping (.+)/) { main::(ext\IO\t\io_sock.t:355): if (/^ord (.+)/) { main::(ext\IO\t\io_sock.t:356): print $sock ord($1), "\n"; main::(ext\IO\t\io_sock.t:357): next; main::(ext\IO\t\io_sock.t:293): print $ord == 0x100 ? main::(ext\IO\t\io_sock.t:294): "ok 21\n" : "not ok 21\n"; main::(ext\IO\t\io_sock.t:296): $sock->print("chr 0x100\n"); IO::Handle::print(lib/IO/Handle.pm:404): 404: @_ or croak 'usage: $io->print(ARGS)'; IO::Handle::print(lib/IO/Handle.pm:405): 405: my $this = shift; IO::Handle::print(lib/IO/Handle.pm:406): 406: print $this @_; main::(ext\IO\t\io_sock.t:297): chomp(my $chr = scalar <$sock>); main::(ext\IO\t\io_sock.t:349): last SERVER_LOOP if /^quit/; main::(ext\IO\t\io_sock.t:350): last if /^done/; main::(ext\IO\t\io_sock.t:351): if (/^ping (.+)/) { main::(ext\IO\t\io_sock.t:355): if (/^ord (.+)/) { main::(ext\IO\t\io_sock.t:359): if (/^chr (.+)/) { main::(ext\IO\t\io_sock.t:360): print $sock chr(hex($1)), "\n"; main::(ext\IO\t\io_sock.t:361): next; main::(ext\IO\t\io_sock.t:298): print $chr eq "\x{100}" ? main::(ext\IO\t\io_sock.t:299): "ok 22\n" : "not ok 22\n"; main::(ext\IO\t\io_sock.t:304): $sock->print("send\n"); IO::Handle::print(lib/IO/Handle.pm:404): 404: @_ or croak 'usage: $io->print(ARGS)'; IO::Handle::print(lib/IO/Handle.pm:405): 405: my $this = shift; IO::Handle::print(lib/IO/Handle.pm:406): 406: print $this @_; main::(ext\IO\t\io_sock.t:306): my @array = (); main::(ext\IO\t\io_sock.t:349): last SERVER_LOOP if /^quit/; main::(ext\IO\t\io_sock.t:307): while( !eof( $sock ) ){ main::(ext\IO\t\io_sock.t:350): last if /^done/; main::(ext\IO\t\io_sock.t:351): if (/^ping (.+)/) { main::(ext\IO\t\io_sock.t:355): if (/^ord (.+)/) { main::(ext\IO\t\io_sock.t:359): if (/^chr (.+)/) { main::(ext\IO\t\io_sock.t:363): if (/^send/) { main::(ext\IO\t\io_sock.t:364): print $sock @data; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:365): last; main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:369): $sock = undef; main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:344): last SERVER_LOOP unless $sock = $listen->accept; main::(ext\IO\t\io_sock.t:309): push( @array, $_); IO::Socket::accept(lib/IO/Socket.pm:218): 218: @_ == 1 || @_ == 2 or croak 'usage $sock->accept([PKG])'; main::(ext\IO\t\io_sock.t:310): last; IO::Socket::accept(lib/IO/Socket.pm:219): 219: my $sock = shift; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { IO::Socket::accept(lib/IO/Socket.pm:220): 220: my $pkg = shift || $sock; main::(ext\IO\t\io_sock.t:309): push( @array, $_); IO::Socket::accept(lib/IO/Socket.pm:221): 221: my $timeout = ${*$sock}{'io_socket_timeout'}; main::(ext\IO\t\io_sock.t:310): last; IO::Socket::accept(lib/IO/Socket.pm:221): 221: my $timeout = ${*$sock}{'io_socket_timeout'}; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { IO::Socket::accept(lib/IO/Socket.pm:222): 222: my $new = $pkg->new(Timeout => $timeout); main::(ext\IO\t\io_sock.t:309): push( @array, $_); IO::Socket::INET::new(lib/IO/Socket/INET.pm:35): 35: my $class = shift; main::(ext\IO\t\io_sock.t:310): last; IO::Socket::INET::new(lib/IO/Socket/INET.pm:36): 36: unshift(@_, "PeerAddr") if @_ == 1; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { IO::Socket::INET::new(lib/IO/Socket/INET.pm:37): 37: return $class->SUPER::new(@_); main::(ext\IO\t\io_sock.t:309): push( @array, $_); IO::Socket::new(lib/IO/Socket.pm:41): 41: my($class,%arg) = @_; main::(ext\IO\t\io_sock.t:310): last; IO::Socket::new(lib/IO/Socket.pm:42): 42: my $sock = $class->SUPER::new(); main::(ext\IO\t\io_sock.t:308): while( <$sock>) { IO::Handle::new(lib/IO/Handle.pm:311): 311: my $class = ref($_[0]) || $_[0] || "IO::Handle"; main::(ext\IO\t\io_sock.t:309): push( @array, $_); IO::Handle::new(lib/IO/Handle.pm:312): 312: @_ == 1 or croak "usage: new $class"; main::(ext\IO\t\io_sock.t:310): last; IO::Handle::new(lib/IO/Handle.pm:313): 313: my $io = gensym; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { Symbol::gensym(lib/Symbol.pm:101): my $name = "GEN" . $genseq++; main::(ext\IO\t\io_sock.t:309): push( @array, $_); Symbol::gensym(lib/Symbol.pm:102): my $ref = \*{$genpkg . $name}; main::(ext\IO\t\io_sock.t:310): last; Symbol::gensym(lib/Symbol.pm:102): my $ref = \*{$genpkg . $name}; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { Symbol::gensym(lib/Symbol.pm:103): delete $$genpkg{$name}; main::(ext\IO\t\io_sock.t:309): push( @array, $_); Symbol::gensym(lib/Symbol.pm:104): $ref; main::(ext\IO\t\io_sock.t:310): last; IO::Handle::new(lib/IO/Handle.pm:314): 314: bless $io, $class; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { IO::Socket::new(lib/IO/Socket.pm:44): 44: $sock->autoflush(1); main::(ext\IO\t\io_sock.t:309): push( @array, $_); IO::Handle::autoflush(lib/IO/Handle.pm:479): 479: my $old = new SelectSaver qualify($_[0], caller); main::(ext\IO\t\io_sock.t:310): last; Symbol::qualify(lib/Symbol.pm:117): my ($name) = @_; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { Symbol::qualify(lib/Symbol.pm:118): if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); Symbol::qualify(lib/Symbol.pm:131): $name; main::(ext\IO\t\io_sock.t:310): last; SelectSaver::new(lib/SelectSaver.pm:42): 42: @_ >= 1 && @_ <= 2 or croak 'usage: SelectSaver->new( [FILEHANDLE] )'; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { SelectSaver::new(lib/SelectSaver.pm:43): 43: my $fh = select; main::(ext\IO\t\io_sock.t:309): push( @array, $_); SelectSaver::new(lib/SelectSaver.pm:44): 44: my $self = bless \$fh, $_[0]; main::(ext\IO\t\io_sock.t:310): last; SelectSaver::new(lib/SelectSaver.pm:45): 45: select qualify($_[1], caller) if @_ > 1; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { Symbol::qualify(lib/Symbol.pm:117): my ($name) = @_; main::(ext\IO\t\io_sock.t:309): push( @array, $_); Symbol::qualify(lib/Symbol.pm:118): if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { main::(ext\IO\t\io_sock.t:310): last; Symbol::qualify(lib/Symbol.pm:131): $name; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { SelectSaver::new(lib/SelectSaver.pm:46): 46: $self; main::(ext\IO\t\io_sock.t:309): push( @array, $_); IO::Handle::autoflush(lib/IO/Handle.pm:480): 480: my $prev = $|; main::(ext\IO\t\io_sock.t:310): last; IO::Handle::autoflush(lib/IO/Handle.pm:481): 481: $| = @_ > 1 ? $_[1] : 1; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { IO::Handle::autoflush(lib/IO/Handle.pm:482): 482: $prev; main::(ext\IO\t\io_sock.t:309): push( @array, $_); SelectSaver::DESTROY(lib/SelectSaver.pm:50): 50: my $self = $_[0]; main::(ext\IO\t\io_sock.t:310): last; SelectSaver::DESTROY(lib/SelectSaver.pm:51): 51: select $$self; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { IO::Socket::new(lib/IO/Socket.pm:46): 46: ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout}; main::(ext\IO\t\io_sock.t:309): push( @array, $_); IO::Socket::new(lib/IO/Socket.pm:46): 46: ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout}; main::(ext\IO\t\io_sock.t:310): last; IO::Socket::new(lib/IO/Socket.pm:48): 48: return scalar(%arg) ? $sock->configure(\%arg) 49: : $sock; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { IO::Socket::accept(lib/IO/Socket.pm:223): 223: my $peer = undef; main::(ext\IO\t\io_sock.t:309): push( @array, $_); IO::Socket::accept(lib/IO/Socket.pm:225): 225: if(defined $timeout) { main::(ext\IO\t\io_sock.t:310): last; IO::Socket::accept(lib/IO/Socket.pm:226): 226: require IO::Select; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { IO::Socket::accept(lib/IO/Socket.pm:228): 228: my $sel = new IO::Select $sock; IO::Select::new(lib/IO/Select.pm:24): 24: my $self = shift; main::(ext\IO\t\io_sock.t:309): push( @array, $_); IO::Select::new(lib/IO/Select.pm:25): 25: my $type = ref($self) || $self; main::(ext\IO\t\io_sock.t:310): last; IO::Select::new(lib/IO/Select.pm:27): 27: my $vec = bless [undef,0], $type; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { IO::Select::new(lib/IO/Select.pm:29): 29: $vec->add(@_) 30: if @_; main::(ext\IO\t\io_sock.t:309): push( @array, $_); IO::Select::add(lib/IO/Select.pm:37): 37: shift->_update('add', @_); main::(ext\IO\t\io_sock.t:310): last; IO::Select::_update(lib/IO/Select.pm:66): 66: my $vec = shift; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { IO::Select::_update(lib/IO/Select.pm:67): 67: my $add = shift eq 'add'; main::(ext\IO\t\io_sock.t:309): push( @array, $_); IO::Select::_update(lib/IO/Select.pm:69): 69: my $bits = $vec->[VEC_BITS]; main::(ext\IO\t\io_sock.t:310): last; IO::Select::_update(lib/IO/Select.pm:70): 70: $bits = '' unless defined $bits; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { IO::Select::_update(lib/IO/Select.pm:72): 72: my $count = 0; main::(ext\IO\t\io_sock.t:309): push( @array, $_); IO::Select::_update(lib/IO/Select.pm:73): 73: my $f; main::(ext\IO\t\io_sock.t:310): last; IO::Select::_update(lib/IO/Select.pm:74): 74: foreach $f (@_) 75: { main::(ext\IO\t\io_sock.t:308): while( <$sock>) { IO::Select::_update(lib/IO/Select.pm:76): 76: my $fn = $vec->_fileno($f); main::(ext\IO\t\io_sock.t:309): push( @array, $_); IO::Select::_fileno(lib/IO/Select.pm:58): 58: my($self, $f) = @_; main::(ext\IO\t\io_sock.t:310): last; IO::Select::_fileno(lib/IO/Select.pm:59): 59: return unless defined $f; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { IO::Select::_fileno(lib/IO/Select.pm:60): 60: $f = $f->[0] if ref($f) eq 'ARRAY'; main::(ext\IO\t\io_sock.t:309): push( @array, $_); IO::Select::_fileno(lib/IO/Select.pm:61): 61: ($f =~ /^\d+$/) ? $f : fileno($f); main::(ext\IO\t\io_sock.t:310): last; IO::Select::_update(lib/IO/Select.pm:77): 77: next unless defined $fn; IO::Select::_update(lib/IO/Select.pm:78): 78: my $i = $fn + FIRST_FD; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { IO::Select::_update(lib/IO/Select.pm:79): 79: if ($add) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); IO::Select::_update(lib/IO/Select.pm:80): 80: if (defined $vec->[$i]) { IO::Select::_update(lib/IO/Select.pm:84): 84: $vec->[FD_COUNT]++; main::(ext\IO\t\io_sock.t:310): last; IO::Select::_update(lib/IO/Select.pm:85): 85: vec($bits, $fn, 1) = 1; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { IO::Select::_update(lib/IO/Select.pm:86): 86: $vec->[$i] = $f; main::(ext\IO\t\io_sock.t:309): push( @array, $_); IO::Select::_update(lib/IO/Select.pm:93): 93: $count++; main::(ext\IO\t\io_sock.t:310): last; IO::Select::_update(lib/IO/Select.pm:95): 95: $vec->[VEC_BITS] = $vec->[FD_COUNT] ? $bits : undef; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { IO::Select::_update(lib/IO/Select.pm:96): 96: $count; main::(ext\IO\t\io_sock.t:309): push( @array, $_); IO::Select::new(lib/IO/Select.pm:32): 32: $vec; main::(ext\IO\t\io_sock.t:310): last; IO::Socket::accept(lib/IO/Socket.pm:230): 230: unless ($sel->can_read($timeout)) { main::(ext\IO\t\io_sock.t:308): while( <$sock>) { IO::Select::can_read(lib/IO/Select.pm:101): 101: my $vec = shift; main::(ext\IO\t\io_sock.t:309): push( @array, $_); IO::Select::can_read(lib/IO/Select.pm:102): 102: my $timeout = shift; main::(ext\IO\t\io_sock.t:310): last; IO::Select::can_read(lib/IO/Select.pm:103): 103: my $r = $vec->[VEC_BITS]; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { IO::Select::can_read(lib/IO/Select.pm:105): 105: defined($r) && (select($r,undef,undef,$timeout) > 0) 106: ? handles($vec, $r) 107: : (); main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:308): while( <$sock>) { main::(ext\IO\t\io_sock.t:309): push( @array, $_); main::(ext\IO\t\io_sock.t:310): last; main::(ext\IO\t\io_sock.t:314): $sock->print("done\n"); IO::Handle::print(lib/IO/Handle.pm:404): 404: @_ or croak 'usage: $io->print(ARGS)'; IO::Handle::print(lib/IO/Handle.pm:405): 405: my $this = shift; IO::Handle::print(lib/IO/Handle.pm:406): 406: print $this @_; main::(ext\IO\t\io_sock.t:315): $sock->close; IO::Socket::close(lib/IO/Socket.pm:192): 192: @_ == 1 or croak 'usage: $sock->close()'; IO::Socket::close(lib/IO/Socket.pm:193): 193: my $sock = shift; IO::Socket::close(lib/IO/Socket.pm:194): 194: ${*$sock}{'io_socket_peername'} = undef; IO::Socket::close(lib/IO/Socket.pm:194): 194: ${*$sock}{'io_socket_peername'} = undef; IO::Socket::close(lib/IO/Socket.pm:195): 195: $sock->SUPER::close(); IO::Handle::close(lib/IO/Handle.pm:370): 370: @_ == 1 or croak 'usage: $io->close()'; IO::Handle::close(lib/IO/Handle.pm:371): 371: my($io) = @_; IO::Handle::close(lib/IO/Handle.pm:373): 373: close($io); main::(ext\IO\t\io_sock.t:317): print "not " if( @array != @data); main::(ext\IO\t\io_sock.t:321): print "ok 23\n"; main::(ext\IO\t\io_sock.t:326): $sock = IO::Socket::INET->new("localhost:$serverport") main::(ext\IO\t\io_sock.t:327): || IO::Socket::INET->new("127.0.0.1:$serverport"); IO::Socket::INET::new(lib/IO/Socket/INET.pm:35): 35: my $class = shift; IO::Socket::INET::new(lib/IO/Socket/INET.pm:36): 36: unshift(@_, "PeerAddr") if @_ == 1; IO::Socket::INET::new(lib/IO/Socket/INET.pm:37): 37: return $class->SUPER::new(@_); IO::Socket::new(lib/IO/Socket.pm:41): 41: my($class,%arg) = @_; IO::Socket::new(lib/IO/Socket.pm:42): 42: my $sock = $class->SUPER::new(); IO::Handle::new(lib/IO/Handle.pm:311): 311: my $class = ref($_[0]) || $_[0] || "IO::Handle"; IO::Handle::new(lib/IO/Handle.pm:312): 312: @_ == 1 or croak "usage: new $class"; IO::Handle::new(lib/IO/Handle.pm:313): 313: my $io = gensym; Symbol::gensym(lib/Symbol.pm:101): my $name = "GEN" . $genseq++; Symbol::gensym(lib/Symbol.pm:102): my $ref = \*{$genpkg . $name}; Symbol::gensym(lib/Symbol.pm:102): my $ref = \*{$genpkg . $name}; Symbol::gensym(lib/Symbol.pm:103): delete $$genpkg{$name}; Symbol::gensym(lib/Symbol.pm:104): $ref; IO::Handle::new(lib/IO/Handle.pm:314): 314: bless $io, $class; IO::Socket::new(lib/IO/Socket.pm:44): 44: $sock->autoflush(1); IO::Handle::autoflush(lib/IO/Handle.pm:479): 479: my $old = new SelectSaver qualify($_[0], caller); Symbol::qualify(lib/Symbol.pm:117): my ($name) = @_; Symbol::qualify(lib/Symbol.pm:118): if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { Symbol::qualify(lib/Symbol.pm:131): $name; SelectSaver::new(lib/SelectSaver.pm:42): 42: @_ >= 1 && @_ <= 2 or croak 'usage: SelectSaver->new( [FILEHANDLE] )'; SelectSaver::new(lib/SelectSaver.pm:43): 43: my $fh = select; SelectSaver::new(lib/SelectSaver.pm:44): 44: my $self = bless \$fh, $_[0]; SelectSaver::new(lib/SelectSaver.pm:45): 45: select qualify($_[1], caller) if @_ > 1; Symbol::qualify(lib/Symbol.pm:117): my ($name) = @_; Symbol::qualify(lib/Symbol.pm:118): if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { Symbol::qualify(lib/Symbol.pm:131): $name; SelectSaver::new(lib/SelectSaver.pm:46): 46: $self; IO::Handle::autoflush(lib/IO/Handle.pm:480): 480: my $prev = $|; IO::Handle::autoflush(lib/IO/Handle.pm:481): 481: $| = @_ > 1 ? $_[1] : 1; IO::Handle::autoflush(lib/IO/Handle.pm:482): 482: $prev; SelectSaver::DESTROY(lib/SelectSaver.pm:50): 50: my $self = $_[0]; SelectSaver::DESTROY(lib/SelectSaver.pm:51): 51: select $$self; IO::Socket::new(lib/IO/Socket.pm:46): 46: ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout}; IO::Socket::new(lib/IO/Socket.pm:46): 46: ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout}; IO::Socket::new(lib/IO/Socket.pm:48): 48: return scalar(%arg) ? $sock->configure(\%arg) 49: : $sock; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:138): 138: my($sock,$arg) = @_; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:139): 139: my($lport,$rport,$laddr,$raddr,$proto,$type); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:142): 142: $arg->{LocalAddr} = $arg->{LocalHost} 143: if exists $arg->{LocalHost} && !exists $arg->{LocalAddr}; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:145): 145: ($laddr,$lport,$proto) = _sock_info($arg->{LocalAddr}, 146: $arg->{LocalPort}, 147: $arg->{Proto}) 148: or return _error($sock, $!, $@); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:73): 73: my($addr,$port,$proto) = @_; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:74): 74: my $origport = $port; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:75): 75: my @serv = (); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:77): 77: $port = $1 78: if(defined $addr && $addr =~ s,:([\w\(\)/]+)$,,); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:80): 80: if(defined $proto && $proto =~ /\D/) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:89): 89: if(defined $port) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:105): 105: return ($addr || undef, 106: $port || undef, 107: $proto || undef 108: ); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:150): 150: $laddr = defined $laddr ? inet_aton($laddr) 151: : INADDR_ANY; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:153): 153: return _error($sock, $EINVAL, "Bad hostname '",$arg->{LocalAddr},"'") 154: unless(defined $laddr); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:156): 156: $arg->{PeerAddr} = $arg->{PeerHost} 157: if exists $arg->{PeerHost} && !exists $arg->{PeerAddr}; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:159): 159: unless(exists $arg->{Listen}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:160): 160: ($raddr,$rport,$proto) = _sock_info($arg->{PeerAddr}, 161: $arg->{PeerPort}, 162: $proto) 163: or return _error($sock, $!, $@); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:73): 73: my($addr,$port,$proto) = @_; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:74): 74: my $origport = $port; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:75): 75: my @serv = (); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:77): 77: $port = $1 78: if(defined $addr && $addr =~ s,:([\w\(\)/]+)$,,); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:80): 80: if(defined $proto && $proto =~ /\D/) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:89): 89: if(defined $port) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:90): 90: my $defport = ($port =~ s,\((\d+)\)$,,) ? $1 : undef; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:91): 91: my $pnum = ($port =~ m,^(\d+)$,)[0]; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:93): 93: @serv = getservbyname($port, _get_proto_name($proto) || "") 94: if ($port =~ m,\D,); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:96): 96: $port = $serv[2] || $defport || $pnum; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:97): 97: unless (defined $port) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:102): 102: $proto = _get_proto_number($serv[3]) if @serv && !$proto; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:105): 105: return ($addr || undef, 106: $port || undef, 107: $proto || undef 108: ); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:166): 166: $proto ||= _get_proto_number('tcp'); IO::Socket::INET::_get_proto_number(lib/IO/Socket/INET.pm:49): 49: my $name = lc(shift); IO::Socket::INET::_get_proto_number(lib/IO/Socket/INET.pm:50): 50: return undef unless defined $name; IO::Socket::INET::_get_proto_number(lib/IO/Socket/INET.pm:51): 51: return $proto_number{$name} if exists $proto_number{$name}; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:168): 168: $type = $arg->{Type} || $socket_type{lc _get_proto_name($proto)}; IO::Socket::INET::_get_proto_name(lib/IO/Socket/INET.pm:61): 61: my $num = shift; IO::Socket::INET::_get_proto_name(lib/IO/Socket/INET.pm:62): 62: return undef unless defined $num; IO::Socket::INET::_get_proto_name(lib/IO/Socket/INET.pm:63): 63: return $proto_name{$num} if exists $proto_name{$num}; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:170): 170: my @raddr = (); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:172): 172: if(defined $raddr) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:173): 173: @raddr = $sock->_get_addr($raddr, $arg->{MultiHomed}); IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:126): 126: my($sock,$addr_str, $multi) = @_; IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:127): 127: my @addr; IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:128): 128: if ($multi && $addr_str !~ /^\d+(?:\.\d+){3}$/) { IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:131): 131: my $h = inet_aton($addr_str); IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:132): 132: push(@addr, $h) if defined $h; IO::Socket::INET::_get_addr(lib/IO/Socket/INET.pm:134): 134: @addr; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:174): 174: return _error($sock, $EINVAL, "Bad hostname '",$arg->{PeerAddr},"'") 175: unless @raddr; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:178): 178: while(1) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:180): 180: $sock->socket(AF_INET, $type, $proto) or 181: return _error($sock, $!, "$!"); IO::Socket::socket(lib/IO/Socket.pm:77): 77: @_ == 4 or croak 'usage: $sock->socket(DOMAIN, TYPE, PROTOCOL)'; IO::Socket::socket(lib/IO/Socket.pm:78): 78: my($sock,$domain,$type,$protocol) = @_; IO::Socket::socket(lib/IO/Socket.pm:80): 80: socket($sock,$domain,$type,$protocol) or 81: return undef; IO::Socket::socket(lib/IO/Socket.pm:83): 83: ${*$sock}{'io_socket_domain'} = $domain; IO::Socket::socket(lib/IO/Socket.pm:83): 83: ${*$sock}{'io_socket_domain'} = $domain; IO::Socket::socket(lib/IO/Socket.pm:84): 84: ${*$sock}{'io_socket_type'} = $type; IO::Socket::socket(lib/IO/Socket.pm:84): 84: ${*$sock}{'io_socket_type'} = $type; IO::Socket::socket(lib/IO/Socket.pm:85): 85: ${*$sock}{'io_socket_proto'} = $protocol; IO::Socket::socket(lib/IO/Socket.pm:85): 85: ${*$sock}{'io_socket_proto'} = $protocol; IO::Socket::socket(lib/IO/Socket.pm:87): 87: $sock; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:183): 183: if (defined $arg->{Blocking}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:188): 188: if ($arg->{Reuse} || $arg->{ReuseAddr}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:193): 193: if ($arg->{ReusePort}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:198): 198: if ($arg->{Broadcast}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:203): 203: if($lport || ($laddr ne INADDR_ANY) || exists $arg->{Listen}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:208): 208: if(exists $arg->{Listen}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:215): 215: last unless exists($arg->{PeerAddr}); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:217): 217: $raddr = shift @raddr; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:219): 219: return _error($sock, $EINVAL, 'Cannot determine remote port') 220: unless($rport || $type == SOCK_DGRAM || $type == SOCK_RAW); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:223): 223: unless($type == SOCK_STREAM || defined $raddr); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:225): 225: return _error($sock, $EINVAL, "Bad hostname '",$arg->{PeerAddr},"'") 226: unless defined $raddr; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:231): 231: undef $@; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:232): 232: if ($sock->connect(pack_sockaddr_in($rport, $raddr))) { IO::Socket::INET::connect(lib/IO/Socket/INET.pm:254): 254: @_ == 2 || @_ == 3 or 255: croak 'usage: $sock->connect(NAME) or $sock->connect(PORT, ADDR)'; IO::Socket::INET::connect(lib/IO/Socket/INET.pm:256): 256: my $sock = shift; IO::Socket::INET::connect(lib/IO/Socket/INET.pm:257): 257: return $sock->SUPER::connect(@_ == 1 ? shift : pack_sockaddr_in(@_)); IO::Socket::connect(lib/IO/Socket.pm:106): 106: @_ == 2 or croak 'usage: $sock->connect(NAME)'; IO::Socket::connect(lib/IO/Socket.pm:107): 107: my $sock = shift; IO::Socket::connect(lib/IO/Socket.pm:108): 108: my $addr = shift; IO::Socket::connect(lib/IO/Socket.pm:109): 109: my $timeout = ${*$sock}{'io_socket_timeout'}; IO::Socket::connect(lib/IO/Socket.pm:109): 109: my $timeout = ${*$sock}{'io_socket_timeout'}; IO::Socket::connect(lib/IO/Socket.pm:110): 110: my $err; IO::Socket::connect(lib/IO/Socket.pm:111): 111: my $blocking; IO::Socket::connect(lib/IO/Socket.pm:113): 113: $blocking = $sock->blocking(0) if $timeout; IO::Socket::connect(lib/IO/Socket.pm:114): 114: if (!connect($sock, $addr)) { IO::Select::handles(lib/IO/Select.pm:219): 219: my $vec = shift; IO::Select::handles(lib/IO/Select.pm:220): 220: my $bits = shift; IO::Select::handles(lib/IO/Select.pm:221): 221: my @h = (); IO::Select::handles(lib/IO/Select.pm:222): 222: my $i; IO::Select::handles(lib/IO/Select.pm:223): 223: my $max = scalar(@$vec) - 1; IO::Select::handles(lib/IO/Select.pm:230): 230: } IO::Select::handles(lib/IO/Select.pm:225): 225: for ($i = FIRST_FD; $i <= $max; $i++) 226: { IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Socket::connect(lib/IO/Socket.pm:141): 141: $sock->blocking(1) if $blocking; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Socket::connect(lib/IO/Socket.pm:143): 143: $! = $err if $err; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Socket::connect(lib/IO/Socket.pm:145): 145: $err ? undef : $sock; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:234): 234: return $sock; IO::Select::handles(lib/IO/Select.pm:227): 227: next unless defined $vec->[$i]; IO::Select::handles(lib/IO/Select.pm:228): 228: push(@h, $vec->[$i]) main::(ext\IO\t\io_sock.t:329): if ($sock) { 229: if !defined($bits) || vec($bits, $i - FIRST_FD, 1); main::(ext\IO\t\io_sock.t:330): $sock->print("done\n"); IO::Select::handles(lib/IO/Select.pm:232): 232: @h; IO::Handle::print(lib/IO/Handle.pm:404): 404: @_ or croak 'usage: $io->print(ARGS)'; IO::Socket::accept(lib/IO/Socket.pm:237): 237: $peer = accept($new,$sock) 238: or return; IO::Handle::print(lib/IO/Handle.pm:405): 405: my $this = shift; IO::Handle::print(lib/IO/Handle.pm:406): 406: print $this @_; main::(ext\IO\t\io_sock.t:331): $sock->close; IO::Socket::close(lib/IO/Socket.pm:192): 192: @_ == 1 or croak 'usage: $sock->close()'; IO::Socket::close(lib/IO/Socket.pm:193): 193: my $sock = shift; IO::Socket::close(lib/IO/Socket.pm:194): 194: ${*$sock}{'io_socket_peername'} = undef; IO::Socket::close(lib/IO/Socket.pm:194): 194: ${*$sock}{'io_socket_peername'} = undef; IO::Socket::close(lib/IO/Socket.pm:195): 195: $sock->SUPER::close(); IO::Handle::close(lib/IO/Handle.pm:370): 370: @_ == 1 or croak 'usage: $io->close()'; IO::Handle::close(lib/IO/Handle.pm:371): 371: my($io) = @_; IO::Handle::close(lib/IO/Handle.pm:373): 373: close($io); IO::Socket::accept(lib/IO/Socket.pm:240): 240: return wantarray ? ($new, $peer) 241: : $new; main::(ext\IO\t\io_sock.t:347): if ($has_perlio) { binmode($sock, ":utf8") or die } main::(ext\IO\t\io_sock.t:347): if ($has_perlio) { binmode($sock, ":utf8") or die } main::(ext\IO\t\io_sock.t:333): print "not " if( 1 != kill 0, $server_pid); main::(ext\IO\t\io_sock.t:337): print "ok 24\n"; main::(ext\IO\t\io_sock.t:384): $sock = IO::Socket::INET->new(Blocking => 0) main::(ext\IO\t\io_sock.t:385): or print "not "; IO::Socket::INET::new(lib/IO/Socket/INET.pm:35): 35: my $class = shift; IO::Socket::INET::new(lib/IO/Socket/INET.pm:36): 36: unshift(@_, "PeerAddr") if @_ == 1; IO::Socket::INET::new(lib/IO/Socket/INET.pm:37): 37: return $class->SUPER::new(@_); IO::Socket::new(lib/IO/Socket.pm:41): 41: my($class,%arg) = @_; IO::Socket::new(lib/IO/Socket.pm:42): 42: my $sock = $class->SUPER::new(); IO::Handle::new(lib/IO/Handle.pm:311): 311: my $class = ref($_[0]) || $_[0] || "IO::Handle"; IO::Handle::new(lib/IO/Handle.pm:312): 312: @_ == 1 or croak "usage: new $class"; IO::Handle::new(lib/IO/Handle.pm:313): 313: my $io = gensym; Symbol::gensym(lib/Symbol.pm:101): my $name = "GEN" . $genseq++; Symbol::gensym(lib/Symbol.pm:102): my $ref = \*{$genpkg . $name}; Symbol::gensym(lib/Symbol.pm:102): my $ref = \*{$genpkg . $name}; Symbol::gensym(lib/Symbol.pm:103): delete $$genpkg{$name}; Symbol::gensym(lib/Symbol.pm:104): $ref; IO::Handle::new(lib/IO/Handle.pm:314): 314: bless $io, $class; IO::Socket::new(lib/IO/Socket.pm:44): 44: $sock->autoflush(1); IO::Handle::autoflush(lib/IO/Handle.pm:479): 479: my $old = new SelectSaver qualify($_[0], caller); Symbol::qualify(lib/Symbol.pm:117): my ($name) = @_; Symbol::qualify(lib/Symbol.pm:118): if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { Symbol::qualify(lib/Symbol.pm:131): $name; SelectSaver::new(lib/SelectSaver.pm:42): 42: @_ >= 1 && @_ <= 2 or croak 'usage: SelectSaver->new( [FILEHANDLE] )'; SelectSaver::new(lib/SelectSaver.pm:43): 43: my $fh = select; SelectSaver::new(lib/SelectSaver.pm:44): 44: my $self = bless \$fh, $_[0]; SelectSaver::new(lib/SelectSaver.pm:45): 45: select qualify($_[1], caller) if @_ > 1; Symbol::qualify(lib/Symbol.pm:117): my ($name) = @_; Symbol::qualify(lib/Symbol.pm:118): if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { Symbol::qualify(lib/Symbol.pm:131): $name; SelectSaver::new(lib/SelectSaver.pm:46): 46: $self; IO::Handle::autoflush(lib/IO/Handle.pm:480): 480: my $prev = $|; IO::Handle::autoflush(lib/IO/Handle.pm:481): 481: $| = @_ > 1 ? $_[1] : 1; IO::Handle::autoflush(lib/IO/Handle.pm:482): 482: $prev; SelectSaver::DESTROY(lib/SelectSaver.pm:50): 50: my $self = $_[0]; SelectSaver::DESTROY(lib/SelectSaver.pm:51): 51: select $$self; IO::Socket::new(lib/IO/Socket.pm:46): 46: ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout}; IO::Socket::new(lib/IO/Socket.pm:46): 46: ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout}; IO::Socket::new(lib/IO/Socket.pm:48): 48: return scalar(%arg) ? $sock->configure(\%arg) 49: : $sock; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:138): 138: my($sock,$arg) = @_; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:139): 139: my($lport,$rport,$laddr,$raddr,$proto,$type); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:142): 142: $arg->{LocalAddr} = $arg->{LocalHost} 143: if exists $arg->{LocalHost} && !exists $arg->{LocalAddr}; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:145): 145: ($laddr,$lport,$proto) = _sock_info($arg->{LocalAddr}, 146: $arg->{LocalPort}, 147: $arg->{Proto}) 148: or return _error($sock, $!, $@); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:73): 73: my($addr,$port,$proto) = @_; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:74): 74: my $origport = $port; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:75): 75: my @serv = (); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:77): 77: $port = $1 78: if(defined $addr && $addr =~ s,:([\w\(\)/]+)$,,); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:80): 80: if(defined $proto && $proto =~ /\D/) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:89): 89: if(defined $port) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:105): 105: return ($addr || undef, 106: $port || undef, 107: $proto || undef 108: ); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:150): 150: $laddr = defined $laddr ? inet_aton($laddr) 151: : INADDR_ANY; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:153): 153: return _error($sock, $EINVAL, "Bad hostname '",$arg->{LocalAddr},"'") 154: unless(defined $laddr); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:156): 156: $arg->{PeerAddr} = $arg->{PeerHost} 157: if exists $arg->{PeerHost} && !exists $arg->{PeerAddr}; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:159): 159: unless(exists $arg->{Listen}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:160): 160: ($raddr,$rport,$proto) = _sock_info($arg->{PeerAddr}, 161: $arg->{PeerPort}, 162: $proto) 163: or return _error($sock, $!, $@); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:73): 73: my($addr,$port,$proto) = @_; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:74): 74: my $origport = $port; IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:75): 75: my @serv = (); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:77): 77: $port = $1 78: if(defined $addr && $addr =~ s,:([\w\(\)/]+)$,,); IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:80): 80: if(defined $proto && $proto =~ /\D/) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:89): 89: if(defined $port) { IO::Socket::INET::_sock_info(lib/IO/Socket/INET.pm:105): 105: return ($addr || undef, 106: $port || undef, 107: $proto || undef 108: ); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:166): 166: $proto ||= _get_proto_number('tcp'); IO::Socket::INET::_get_proto_number(lib/IO/Socket/INET.pm:49): 49: my $name = lc(shift); IO::Socket::INET::_get_proto_number(lib/IO/Socket/INET.pm:50): 50: return undef unless defined $name; IO::Socket::INET::_get_proto_number(lib/IO/Socket/INET.pm:51): 51: return $proto_number{$name} if exists $proto_number{$name}; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:168): 168: $type = $arg->{Type} || $socket_type{lc _get_proto_name($proto)}; IO::Socket::INET::_get_proto_name(lib/IO/Socket/INET.pm:61): 61: my $num = shift; IO::Socket::INET::_get_proto_name(lib/IO/Socket/INET.pm:62): 62: return undef unless defined $num; IO::Socket::INET::_get_proto_name(lib/IO/Socket/INET.pm:63): 63: return $proto_name{$num} if exists $proto_name{$num}; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:170): 170: my @raddr = (); IO::Socket::INET::configure(lib/IO/Socket/INET.pm:172): 172: if(defined $raddr) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:178): 178: while(1) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:180): 180: $sock->socket(AF_INET, $type, $proto) or 181: return _error($sock, $!, "$!"); IO::Socket::socket(lib/IO/Socket.pm:77): 77: @_ == 4 or croak 'usage: $sock->socket(DOMAIN, TYPE, PROTOCOL)'; IO::Socket::socket(lib/IO/Socket.pm:78): 78: my($sock,$domain,$type,$protocol) = @_; IO::Socket::socket(lib/IO/Socket.pm:80): 80: socket($sock,$domain,$type,$protocol) or 81: return undef; IO::Socket::socket(lib/IO/Socket.pm:83): 83: ${*$sock}{'io_socket_domain'} = $domain; IO::Socket::socket(lib/IO/Socket.pm:83): 83: ${*$sock}{'io_socket_domain'} = $domain; IO::Socket::socket(lib/IO/Socket.pm:84): 84: ${*$sock}{'io_socket_type'} = $type; IO::Socket::socket(lib/IO/Socket.pm:84): 84: ${*$sock}{'io_socket_type'} = $type; IO::Socket::socket(lib/IO/Socket.pm:85): 85: ${*$sock}{'io_socket_proto'} = $protocol; IO::Socket::socket(lib/IO/Socket.pm:85): 85: ${*$sock}{'io_socket_proto'} = $protocol; IO::Socket::socket(lib/IO/Socket.pm:87): 87: $sock; IO::Socket::INET::configure(lib/IO/Socket/INET.pm:183): 183: if (defined $arg->{Blocking}) { IO::Socket::INET::configure(lib/IO/Socket/INET.pm:184): 184: defined $sock->blocking($arg->{Blocking}) 185: or return _error($sock, $!, "$!"); IO::Socket::blocking(lib/IO/Socket.pm:155): 155: my $sock = shift; IO::Socket::blocking(lib/IO/Socket.pm:157): 157: return $sock->SUPER::blocking(@_) 158: if $^O ne 'MSWin32'; IO::Socket::blocking(lib/IO/Socket.pm:175): 175: my $orig= !${*$sock}{io_sock_nonblocking}; IO::Socket::blocking(lib/IO/Socket.pm:175): 175: my $orig= !${*$sock}{io_sock_nonblocking}; IO::Socket::blocking(lib/IO/Socket.pm:177): 177: return $orig unless @_; IO::Socket::blocking(lib/IO/Socket.pm:179): 179: my $block = shift; main::(ext\IO\t\io_sock.t:348): while (<$sock>) { IO::Socket::blocking(lib/IO/Socket.pm:181): 181: if ( !$block != !$orig ) { main::(ext\IO\t\io_sock.t:349): last SERVER_LOOP if /^quit/; IO::Socket::blocking(lib/IO/Socket.pm:182): 182: ${*$sock}{io_sock_nonblocking} = $block ? 0 : 1; main::(ext\IO\t\io_sock.t:350): last if /^done/; IO::Socket::blocking(lib/IO/Socket.pm:182): 182: ${*$sock}{io_sock_nonblocking} = $block ? 0 : 1; main::(ext\IO\t\io_sock.t:369): $sock = undef; IO::Socket::blocking(lib/IO/Socket.pm:183): 183: ioctl($sock, 0x8004667e, pack("L!",${*$sock}{io_sock_nonblocking})) 184: or return undef; IO::Socket::blocking(lib/IO/Socket.pm:183): 183: ioctl($sock, 0x8004667e, pack("L!",${*$sock}{io_sock_nonblocking})) 184: or return undef; IO::Socket::INET::_error(lib/IO/Socket/INET.pm:112): 112: my $sock = shift; IO::Socket::INET::_error(lib/IO/Socket/INET.pm:113): 113: my $err = shift; 114: { IO::Socket::INET::_error(lib/IO/Socket/INET.pm:115): 115: local($!); IO::Socket::INET::_error(lib/IO/Socket/INET.pm:115): 115: local($!); IO::Socket::INET::_error(lib/IO/Socket/INET.pm:116): 116: my $title = ref($sock).": "; IO::Socket::INET::_error(lib/IO/Socket/INET.pm:117): 117: $@ = join("", $_[0] =~ /^$title/ ? "" : $title, @_); IO::Socket::INET::_error(lib/IO/Socket/INET.pm:118): 118: $sock->close() 119: if(defined fileno($sock)); IO::Socket::close(lib/IO/Socket.pm:192): 192: @_ == 1 or croak 'usage: $sock->close()'; IO::Socket::close(lib/IO/Socket.pm:193): 193: my $sock = shift; IO::Socket::close(lib/IO/Socket.pm:194): 194: ${*$sock}{'io_socket_peername'} = undef; IO::Socket::close(lib/IO/Socket.pm:194): 194: ${*$sock}{'io_socket_peername'} = undef; IO::Socket::close(lib/IO/Socket.pm:195): 195: $sock->SUPER::close(); IO::Handle::close(lib/IO/Handle.pm:370): 370: @_ == 1 or croak 'usage: $io->close()'; IO::Handle::close(lib/IO/Handle.pm:371): 371: my($io) = @_; IO::Handle::close(lib/IO/Handle.pm:373): 373: close($io); IO::Socket::INET::_error(lib/IO/Socket/INET.pm:121): 121: $! = $err; IO::Socket::INET::_error(lib/IO/Socket/INET.pm:122): 122: return undef; main::(ext\IO\t\io_sock.t:386): print "ok 25\n"; main::(ext\IO\t\io_sock.t:388): if ( $^O eq 'qnx' ) { main::(ext\IO\t\io_sock.t:393): my $status = $sock->blocking; main::(ext\IO\t\io_sock.t:344): last SERVER_LOOP unless $sock = $listen->accept; IO::Socket::accept(lib/IO/Socket.pm:218): 218: @_ == 1 || @_ == 2 or croak 'usage $sock->accept([PKG])'; IO::Socket::accept(lib/IO/Socket.pm:219): 219: my $sock = shift; IO::Socket::accept(lib/IO/Socket.pm:220): 220: my $pkg = shift || $sock; IO::Socket::accept(lib/IO/Socket.pm:221): 221: my $timeout = ${*$sock}{'io_socket_timeout'}; IO::Socket::accept(lib/IO/Socket.pm:221): 221: my $timeout = ${*$sock}{'io_socket_timeout'}; IO::Socket::accept(lib/IO/Socket.pm:222): 222: my $new = $pkg->new(Timeout => $timeout); IO::Socket::INET::new(lib/IO/Socket/INET.pm:35): 35: my $class = shift; IO::Socket::INET::new(lib/IO/Socket/INET.pm:36): 36: unshift(@_, "PeerAddr") if @_ == 1; IO::Socket::INET::new(lib/IO/Socket/INET.pm:37): 37: return $class->SUPER::new(@_); IO::Socket::new(lib/IO/Socket.pm:41): 41: my($class,%arg) = @_; IO::Socket::new(lib/IO/Socket.pm:42): 42: my $sock = $class->SUPER::new(); IO::Handle::new(lib/IO/Handle.pm:311): 311: my $class = ref($_[0]) || $_[0] || "IO::Handle"; IO::Handle::new(lib/IO/Handle.pm:312): 312: @_ == 1 or croak "usage: new $class"; IO::Handle::new(lib/IO/Handle.pm:313): 313: my $io = gensym; Symbol::gensym(lib/Symbol.pm:101): my $name = "GEN" . $genseq++; Symbol::gensym(lib/Symbol.pm:102): my $ref = \*{$genpkg . $name}; Symbol::gensym(lib/Symbol.pm:102): my $ref = \*{$genpkg . $name}; Symbol::gensym(lib/Symbol.pm:103): delete $$genpkg{$name}; Symbol::gensym(lib/Symbol.pm:104): $ref; IO::Handle::new(lib/IO/Handle.pm:314): 314: bless $io, $class; IO::Socket::new(lib/IO/Socket.pm:44): 44: $sock->autoflush(1); IO::Handle::autoflush(lib/IO/Handle.pm:479): 479: my $old = new SelectSaver qualify($_[0], caller); Symbol::qualify(lib/Symbol.pm:117): my ($name) = @_; Symbol::qualify(lib/Symbol.pm:118): if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { Symbol::qualify(lib/Symbol.pm:131): $name; SelectSaver::new(lib/SelectSaver.pm:42): 42: @_ >= 1 && @_ <= 2 or croak 'usage: SelectSaver->new( [FILEHANDLE] )'; SelectSaver::new(lib/SelectSaver.pm:43): 43: my $fh = select; SelectSaver::new(lib/SelectSaver.pm:44): 44: my $self = bless \$fh, $_[0]; SelectSaver::new(lib/SelectSaver.pm:45): 45: select qualify($_[1], caller) if @_ > 1; Symbol::qualify(lib/Symbol.pm:117): my ($name) = @_; Symbol::qualify(lib/Symbol.pm:118): if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { Symbol::qualify(lib/Symbol.pm:131): $name; SelectSaver::new(lib/SelectSaver.pm:46): 46: $self; IO::Handle::autoflush(lib/IO/Handle.pm:480): 480: my $prev = $|; IO::Handle::autoflush(lib/IO/Handle.pm:481): 481: $| = @_ > 1 ? $_[1] : 1; IO::Handle::autoflush(lib/IO/Handle.pm:482): 482: $prev; SelectSaver::DESTROY(lib/SelectSaver.pm:50): 50: my $self = $_[0]; SelectSaver::DESTROY(lib/SelectSaver.pm:51): 51: select $$self; IO::Socket::new(lib/IO/Socket.pm:46): 46: ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout}; IO::Socket::new(lib/IO/Socket.pm:46): 46: ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout}; IO::Socket::new(lib/IO/Socket.pm:48): 48: return scalar(%arg) ? $sock->configure(\%arg) 49: : $sock; IO::Socket::accept(lib/IO/Socket.pm:223): 223: my $peer = undef; IO::Socket::accept(lib/IO/Socket.pm:225): 225: if(defined $timeout) { IO::Socket::accept(lib/IO/Socket.pm:226): 226: require IO::Select; IO::Socket::accept(lib/IO/Socket.pm:228): 228: my $sel = new IO::Select $sock; IO::Select::new(lib/IO/Select.pm:24): 24: my $self = shift; IO::Select::new(lib/IO/Select.pm:25): 25: my $type = ref($self) || $self; IO::Select::new(lib/IO/Select.pm:27): 27: my $vec = bless [undef,0], $type; IO::Select::new(lib/IO/Select.pm:29): 29: $vec->add(@_) 30: if @_; IO::Select::add(lib/IO/Select.pm:37): 37: shift->_update('add', @_); IO::Select::_update(lib/IO/Select.pm:66): 66: my $vec = shift; IO::Select::_update(lib/IO/Select.pm:67): 67: my $add = shift eq 'add'; IO::Select::_update(lib/IO/Select.pm:69): 69: my $bits = $vec->[VEC_BITS]; IO::Select::_update(lib/IO/Select.pm:70): 70: $bits = '' unless defined $bits; IO::Select::_update(lib/IO/Select.pm:72): 72: my $count = 0; IO::Select::_update(lib/IO/Select.pm:73): 73: my $f; IO::Select::_update(lib/IO/Select.pm:74): 74: foreach $f (@_) 75: { IO::Select::_update(lib/IO/Select.pm:76): 76: my $fn = $vec->_fileno($f); IO::Select::_fileno(lib/IO/Select.pm:58): 58: my($self, $f) = @_; IO::Select::_fileno(lib/IO/Select.pm:59): 59: return unless defined $f; IO::Select::_fileno(lib/IO/Select.pm:60): 60: $f = $f->[0] if ref($f) eq 'ARRAY'; IO::Select::_fileno(lib/IO/Select.pm:61): 61: ($f =~ /^\d+$/) ? $f : fileno($f); IO::Select::_update(lib/IO/Select.pm:77): 77: next unless defined $fn; IO::Select::_update(lib/IO/Select.pm:78): 78: my $i = $fn + FIRST_FD; IO::Select::_update(lib/IO/Select.pm:79): 79: if ($add) { IO::Select::_update(lib/IO/Select.pm:80): 80: if (defined $vec->[$i]) { IO::Select::_update(lib/IO/Select.pm:84): 84: $vec->[FD_COUNT]++; IO::Select::_update(lib/IO/Select.pm:85): 85: vec($bits, $fn, 1) = 1; IO::Select::_update(lib/IO/Select.pm:86): 86: $vec->[$i] = $f; IO::Select::_update(lib/IO/Select.pm:93): 93: $count++; IO::Select::_update(lib/IO/Select.pm:95): 95: $vec->[VEC_BITS] = $vec->[FD_COUNT] ? $bits : undef; IO::Select::_update(lib/IO/Select.pm:96): 96: $count; IO::Select::new(lib/IO/Select.pm:32): 32: $vec; IO::Socket::accept(lib/IO/Socket.pm:230): 230: unless ($sel->can_read($timeout)) { IO::Select::can_read(lib/IO/Select.pm:101): 101: my $vec = shift; IO::Select::can_read(lib/IO/Select.pm:102): 102: my $timeout = shift; IO::Select::can_read(lib/IO/Select.pm:103): 103: my $r = $vec->[VEC_BITS]; IO::Select::can_read(lib/IO/Select.pm:105): 105: defined($r) && (select($r,undef,undef,$timeout) > 0) 106: ? handles($vec, $r) 107: : (); main::(ext\IO\t\io_sock.t:166): exit; main::(ext\IO\t\io_sock.t:192): $sock->send("ok 12\n"); # send another one to be sure IO::Socket::send(lib/IO/Socket.pm:262): 262: @_ >= 2 && @_ <= 4 or croak 'usage: $sock->send(BUF, [FLAGS, [TO]])'; IO::Socket::send(lib/IO/Socket.pm:263): 263: my $sock = $_[0]; IO::Socket::send(lib/IO/Socket.pm:264): 264: my $flags = $_[2] || 0; IO::Socket::send(lib/IO/Socket.pm:265): 265: my $peer = $_[3] || $sock->peername; IO::Socket::peername(lib/IO/Socket.pm:250): 250: @_ == 1 or croak 'usage: $sock->peername()'; IO::Socket::peername(lib/IO/Socket.pm:251): 251: my($sock) = @_; IO::Socket::peername(lib/IO/Socket.pm:252): 252: ${*$sock}{'io_socket_peername'} ||= getpeername($sock); IO::Socket::peername(lib/IO/Socket.pm:252): 252: ${*$sock}{'io_socket_peername'} ||= getpeername($sock); IO::Socket::send(lib/IO/Socket.pm:267): 267: croak 'send: Cannot determine peer address' 268: unless(defined $peer); IO::Socket::send(lib/IO/Socket.pm:270): 270: my $r = defined(getpeername($sock)) 271: ? send($sock, $_[1], $flags) 272: : send($sock, $_[1], $flags, $peer); IO::Socket::send(lib/IO/Socket.pm:275): 275: ${*$sock}{'io_socket_peername'} = $peer 276: if(@_ == 4 && defined $r); IO::Socket::send(lib/IO/Socket.pm:278): 278: $r; main::(ext\IO\t\io_sock.t:193): exit; IO::Socket::accept(lib/IO/Socket.pm:231): 231: $@ = 'accept: timeout'; IO::Socket::accept(lib/IO/Socket.pm:232): 232: $! = (exists &Errno::ETIMEDOUT ? &Errno::ETIMEDOUT : 1); IO::Socket::accept(lib/IO/Socket.pm:233): 233: return; main::(ext\IO\t\io_sock.t:371): $listen->close; IO::Socket::close(lib/IO/Socket.pm:192): 192: @_ == 1 or croak 'usage: $sock->close()'; IO::Socket::close(lib/IO/Socket.pm:193): 193: my $sock = shift; IO::Socket::close(lib/IO/Socket.pm:194): 194: ${*$sock}{'io_socket_peername'} = undef; IO::Socket::close(lib/IO/Socket.pm:194): 194: ${*$sock}{'io_socket_peername'} = undef; IO::Socket::close(lib/IO/Socket.pm:195): 195: $sock->SUPER::close(); IO::Handle::close(lib/IO/Handle.pm:370): 370: @_ == 1 or croak 'usage: $io->close()'; IO::Handle::close(lib/IO/Handle.pm:371): 371: my($io) = @_; IO::Handle::close(lib/IO/Handle.pm:373): 373: close($io); main::(ext\IO\t\io_sock.t:372): exit 0;