@@ -1,3 +1,17 @@
+libnet 1.27 -- Fri May 30 2014
+
+ * Simplified Makefile.PL requirements.
+
+libnet 1.26 -- Fri May 30 2014
+
+ * Set minimum required ExtUtils::MakeMaker version to 6.64 to ensure that all
+ parameters used are supported, to save jumping through hoops to support
+ earlier versions. (This should not be a problem since ExtUtils::MakeMaker
+ 6.64 is easily installed into Perl 5.8.1 and above, that being the whole
+ point of the new choice of minimum supported Perl version.)
+ * Set minimum required Perl version to 5.8.1. This is in line with the
+ minimum requirement of the "Perl Toolchain".
+
libnet 1.25 -- Tue Feb 04 2014
* Fix Net::FTP::pasv_wait() not handling errors from Net::Cmd::reponse()
@@ -13,37 +13,37 @@ use strict;
# Below this line is auto-generated, *ANY* changes will be lost
%NetConfig = (
- # the followinf parameters are all lists of hosts for the
- # respective protocols.
- nntp_hosts => [],
- snpp_hosts => [],
- pop3_hosts => [],
- smtp_hosts => [],
- ph_hosts => [],
- daytime_hosts => [],
- time_hosts => [],
-
- # your internet domain
- inet_domain => undef,
-
- # If you have an ftp proxy firewall (not an http firewall)
- # then set this to the name of the firewall
- ftp_firewall => undef,
-
- # set if all connections done via the firewall should use
- # passive data connections
- ftp_ext_passive => 0,
-
- # set if all connections not done via the firewall should use
- # passive data connections
- ftp_int_passive => 0,
-
- # If set the make test will attempt to connect to the hosts above
- test_hosts => 0,
-
- # Used during Configure (which you are not using) to do
- # DNS lookups to ensure hosts exist
- test_exist => 0,
+ # the followinf parameters are all lists of hosts for the
+ # respective protocols.
+ nntp_hosts => [],
+ snpp_hosts => [],
+ pop3_hosts => [],
+ smtp_hosts => [],
+ ph_hosts => [],
+ daytime_hosts => [],
+ time_hosts => [],
+
+ # your internet domain
+ inet_domain => undef,
+
+ # If you have an ftp proxy firewall (not an http firewall)
+ # then set this to the name of the firewall
+ ftp_firewall => undef,
+
+ # set if all connections done via the firewall should use
+ # passive data connections
+ ftp_ext_passive => 0,
+
+ # set if all connections not done via the firewall should use
+ # passive data connections
+ ftp_int_passive => 0,
+
+ # If set the make test will attempt to connect to the hosts above
+ test_hosts => 0,
+
+ # Used during Configure (which you are not using) to do
+ # DNS lookups to ensure hosts exist
+ test_exist => 0,
);
1;
@@ -114,10 +114,10 @@ sub get_hostname
my $ans = Prompt($prompt,$def);
$host = ($ans =~ /(\S*)/)[0];
last
- if(!length($host) || valid_host($host));
+ if(!length($host) || valid_host($host));
$def =""
- if $def eq $host;
+ if $def eq $host;
print <<"EDQ";
@@ -129,8 +129,8 @@ EDQ
}
length $host
- ? $host
- : undef;
+ ? $host
+ : undef;
}
##
@@ -221,7 +221,7 @@ sub default_hostname
if(defined($host) && valid_host($host))
{
return $host
- unless wantarray;
+ unless wantarray;
push(@host,$host);
}
}
@@ -236,7 +236,7 @@ sub default_hostname
getopts('do:');
$libnet_cfg = "libnet.cfg"
- unless(defined($libnet_cfg = $opt_o));
+ unless(defined($libnet_cfg = $opt_o));
my %oldcfg = ();
@@ -268,7 +268,7 @@ Do you want to modify/update your configuration (y|n) ?
EDQ
$opt_d = 1
- unless get_bool($msg,0);
+ unless get_bool($msg,0);
}
#---------------------------------------------------------------------------
@@ -313,7 +313,7 @@ EDQ
$msg = 'Enter a list of available NNTP hosts :';
$def = $oldcfg{'nntp_hosts'} ||
- [ default_hostname($ENV{NNTPSERVER},$ENV{NEWSHOST},'news') ];
+ [ default_hostname($ENV{NNTPSERVER},$ENV{NEWSHOST},'news') ];
$cfg{'nntp_hosts'} = get_host_list($msg,$def);
@@ -322,7 +322,7 @@ $cfg{'nntp_hosts'} = get_host_list($msg,$def);
$msg = 'Enter a list of available SMTP hosts :';
$def = $oldcfg{'smtp_hosts'} ||
- [ default_hostname(split(/:/,$ENV{SMTPHOSTS} || ""), 'mailhost') ];
+ [ default_hostname(split(/:/,$ENV{SMTPHOSTS} || ""), 'mailhost') ];
$cfg{'smtp_hosts'} = get_host_list($msg,$def);
@@ -347,7 +347,7 @@ $cfg{'snpp_hosts'} = get_host_list($msg,$def);
$msg = 'Enter a list of available PH Hosts :' ;
$def = $oldcfg{'ph_hosts'} ||
- [ default_hostname('dirserv') ];
+ [ default_hostname('dirserv') ];
$cfg{'ph_hosts'} = get_host_list($msg,$def);
@@ -456,7 +456,7 @@ if(ref($oldcfg{'local_netmask'}))
{
$def = $oldcfg{'local_netmask'};
print "Your current netmasks are :\n\n\t",
- join("\n\t",@{$def}),"\n\n";
+ join("\n\t",@{$def}),"\n\n";
}
print "
@@ -481,9 +481,9 @@ current list and an empty line to continue with Configure.
###EDQ
###
###$def = $cfg{'socks_hosts'} ||
-### [ default_hostname($ENV{SOCKS5_SERVER},
-### $ENV{SOCKS_SERVER},
-### $ENV{SOCKS4_SERVER}) ];
+### [ default_hostname($ENV{SOCKS5_SERVER},
+### $ENV{SOCKS_SERVER},
+### $ENV{SOCKS4_SERVER}) ];
###
###$cfg{'socks_hosts'} = get_host_list($msg,$def);
@@ -553,7 +553,7 @@ What host can I use :
EDQ
$cfg{'ftp_testhost'} = get_hostname($msg,$oldcfg{'ftp_testhost'})
- if $cfg{'test_hosts'};
+ if $cfg{'test_hosts'};
print "\n";
@@ -561,7 +561,7 @@ print "\n";
#---------------------------------------------------------------------------
my $fh = IO::File->new($libnet_cfg, "w") or
- die "Cannot create `$libnet_cfg': $!";
+ die "Cannot create `$libnet_cfg': $!";
print "Writing $libnet_cfg\n";
@@ -571,22 +571,22 @@ my $key;
foreach $key (keys %cfg) {
my $val = $cfg{$key};
if(!defined($val)) {
- $val = "undef";
+ $val = "undef";
}
elsif(ref($val)) {
- $val = '[' . join(",",
- map {
- my $v = "undef";
- if(defined $_) {
- ($v = $_) =~ s/'/\'/sog;
- $v = "'" . $v . "'";
- }
- $v;
- } @$val ) . ']';
+ $val = '[' . join(",",
+ map {
+ my $v = "undef";
+ if(defined $_) {
+ ($v = $_) =~ s/'/\'/sog;
+ $v = "'" . $v . "'";
+ }
+ $v;
+ } @$val ) . ']';
}
else {
- $val =~ s/'/\'/sog;
- $val = "'" . $val . "'" if $val =~ /\D/;
+ $val =~ s/'/\'/sog;
+ $val = "'" . $val . "'" if $val =~ /\D/;
}
print $fh "\t'",$key,"' => ",$val,",\n";
}
diff --git a/var/tmp/source/SHAY/libnet-1.25/libnet-1.25/Hostname.pm.eg b/var/tmp/source/SHAY/libnet-1.27/libnet-1.27/Hostname.pm.eg
old mode 100755
new mode 100644
@@ -1,23 +1,23 @@
Changes
Config.eg
Configure
-Hostname.pm.eg Example replacement for Hostname.pm
+Hostname.pm.eg Example replacement for Hostname.pm
MANIFEST
Makefile.PL
Net/Cmd.pm
Net/Config.pm
-Net/Domain.pm DNS Domain name lookup
-Net/FTP.pm File Transfer Protocol Client
+Net/Domain.pm DNS Domain name lookup
+Net/FTP.pm File Transfer Protocol Client
Net/FTP/A.pm
Net/FTP/E.pm
Net/FTP/I.pm
Net/FTP/L.pm
Net/FTP/dataconn.pm
-Net/NNTP.pm Network News Transfer Protocol
-Net/Netrc.pm .netrc lookup routines
-Net/POP3.pm Post Office Protocol
-Net/SMTP.pm Simple Mail Transfer Protocol Client
-Net/Time.pm time & nettime protocols
+Net/NNTP.pm Network News Transfer Protocol
+Net/Netrc.pm .netrc lookup routines
+Net/POP3.pm Post Office Protocol
+Net/SMTP.pm Simple Mail Transfer Protocol Client
+Net/Time.pm time & nettime protocols
Net/libnetFAQ.pod
README
demos/ftp
@@ -38,5 +38,5 @@ t/nntp.t
t/require.t
t/smtp.t
t/time.t
-META.yml Module YAML meta-data (added by MakeMaker)
-META.json Module JSON meta-data (added by MakeMaker)
+META.yml Module YAML meta-data (added by MakeMaker)
+META.json Module JSON meta-data (added by MakeMaker)
@@ -1,47 +1,94 @@
-{
- "abstract" : "Collection of Network protocol modules",
- "author" : [
- "Graham Barr <gbarr@pobox.com>"
- ],
- "dynamic_config" : 1,
- "generated_by" : "ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.120921",
- "license" : [
- "perl_5"
- ],
- "meta-spec" : {
- "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
- "version" : "2"
- },
- "name" : "libnet",
- "no_index" : {
- "directory" : [
- "t",
- "inc"
- ]
- },
- "prereqs" : {
- "build" : {
- "requires" : {
- "ExtUtils::MakeMaker" : "0"
- }
- },
- "configure" : {
- "requires" : {
- "ExtUtils::MakeMaker" : "0"
- }
- },
- "runtime" : {
- "requires" : {
- "IO::Socket" : "1.05",
- "Socket" : "1.3"
- }
- }
- },
- "release_status" : "stable",
- "resources" : {
- "repository" : {
- "url" : "http://github.com/steve-m-hay/perl-libnet"
- }
- },
- "version" : "1.25"
-}
+{
+ "abstract" : "Collection of network protocol modules",
+ "author" : [
+ "Graham Barr <gbarr@pobox.com>, Steve Hay <shay@cpan.org>"
+ ],
+ "dynamic_config" : 1,
+ "generated_by" : "ExtUtils::MakeMaker version 6.98, CPAN::Meta::Converter version 2.140640",
+ "license" : [
+ "perl_5"
+ ],
+ "meta-spec" : {
+ "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
+ "version" : "2"
+ },
+ "name" : "libnet",
+ "no_index" : {
+ "directory" : [
+ "t",
+ "inc"
+ ]
+ },
+ "optional_features" : {
+ "APOP" : {
+ "description" : "APOP support",
+ "prereqs" : {
+ "runtime" : {
+ "requires" : {
+ "Digest::MD5" : "0"
+ }
+ }
+ }
+ },
+ "AUTH" : {
+ "description" : "AUTH support",
+ "prereqs" : {
+ "runtime" : {
+ "requires" : {
+ "Authen::SASL" : "0",
+ "MIME::Base64" : "0"
+ }
+ }
+ }
+ }
+ },
+ "prereqs" : {
+ "build" : {
+ "requires" : {
+ "ExtUtils::MakeMaker" : "0"
+ }
+ },
+ "configure" : {
+ "requires" : {
+ "ExtUtils::MakeMaker" : "6.64",
+ "Getopt::Std" : "0",
+ "perl" : "5.008001",
+ "strict" : "0",
+ "vars" : "0",
+ "warnings" : "0"
+ }
+ },
+ "runtime" : {
+ "requires" : {
+ "Carp" : "0",
+ "Errno" : "0",
+ "Exporter" : "0",
+ "Fcntl" : "0",
+ "File::Basename" : "0",
+ "FileHandle" : "0",
+ "IO::Select" : "0",
+ "IO::Socket" : "1.05",
+ "POSIX" : "0",
+ "Socket" : "1.3",
+ "Symbol" : "0",
+ "Time::Local" : "0",
+ "perl" : "5.008001",
+ "strict" : "0",
+ "vars" : "0"
+ }
+ },
+ "test" : {
+ "requires" : {
+ "Cwd" : "0"
+ }
+ }
+ },
+ "release_status" : "stable",
+ "resources" : {
+ "repository" : {
+ "type" : "git",
+ "url" : "https://github.com/steve-m-hay/perl-libnet.git"
+ }
+ },
+ "version" : "1.27"
+}
@@ -1,25 +1,54 @@
----
-abstract: 'Collection of Network protocol modules'
-author:
- - 'Graham Barr <gbarr@pobox.com>'
-build_requires:
- ExtUtils::MakeMaker: 0
-configure_requires:
- ExtUtils::MakeMaker: 0
-dynamic_config: 1
-generated_by: 'ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.120921'
-license: perl
-meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
-name: libnet
-no_index:
- directory:
- - t
- - inc
-requires:
- IO::Socket: 1.05
- Socket: 1.3
-resources:
- repository: http://github.com/steve-m-hay/perl-libnet
-version: 1.25
+---
+abstract: 'Collection of network protocol modules'
+author:
+ - 'Graham Barr <gbarr@pobox.com>, Steve Hay <shay@cpan.org>'
+build_requires:
+ Cwd: '0'
+ ExtUtils::MakeMaker: '0'
+configure_requires:
+ ExtUtils::MakeMaker: '6.64'
+ Getopt::Std: '0'
+ perl: '5.008001'
+ strict: '0'
+ vars: '0'
+ warnings: '0'
+dynamic_config: 1
+generated_by: 'ExtUtils::MakeMaker version 6.98, CPAN::Meta::Converter version 2.140640'
+license: perl
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: '1.4'
+name: libnet
+no_index:
+ directory:
+ - t
+ - inc
+optional_features:
+ APOP:
+ description: 'APOP support'
+ requires:
+ Digest::MD5: '0'
+ AUTH:
+ description: 'AUTH support'
+ requires:
+ Authen::SASL: '0'
+ MIME::Base64: '0'
+requires:
+ Carp: '0'
+ Errno: '0'
+ Exporter: '0'
+ Fcntl: '0'
+ File::Basename: '0'
+ FileHandle: '0'
+ IO::Select: '0'
+ IO::Socket: '1.05'
+ POSIX: '0'
+ Socket: '1.3'
+ Symbol: '0'
+ Time::Local: '0'
+ perl: '5.008001'
+ strict: '0'
+ vars: '0'
+resources:
+ repository: https://github.com/steve-m-hay/perl-libnet.git
+version: '1.27'
@@ -1,121 +1,151 @@
-# This -*- perl -*- script makes the Makefile
-
-#--- Distribution section ---
-
-$NAME = 'Net';
-$DISTNAME = "libnet";
-$VERSION = "1.25";
-
-BEGIN { require 5.002 }
-
-use ExtUtils::MakeMaker;
-use ExtUtils::Manifest qw(maniread);
-
-#--- Installation check
-
-sub chk_version
-{
- my($pkg,$wanted,$msg) = @_;
-
- local($|) = 1;
- print "Checking for $pkg...";
-
- eval { my $p; ($p = $pkg . ".pm") =~ s#::#/#g; require $p; };
-
- my $vstr = ${"${pkg}::VERSION"} ? "found v" . ${"${pkg}::VERSION"}
- : "not found";
- my $vnum = ${"${pkg}::VERSION"} || 0;
-
- print $vnum >= $wanted ? "ok\n" : " " . $vstr . "\n";
-
- $vnum >= $wanted;
+#!perl
+#===============================================================================
+#
+# Makefile.PL
+#
+# DESCRIPTION
+# Makefile creation script.
+#
+# COPYRIGHT
+# Copyright (C) 2014 Steve Hay. All rights reserved.
+#
+# LICENCE
+# You may distribute under the terms of either the GNU General Public License
+# or the Artistic License, as specified in the LICENCE file.
+#
+#===============================================================================
+
+use 5.008001;
+
+use strict;
+use warnings;
+
+use ExtUtils::MakeMaker 6.64;
+use ExtUtils::MakeMaker qw(WriteMakefile);
+
+#===============================================================================
+# INITIALIZATION
+#===============================================================================
+
+our($CfgFile, $CfgPath);
+
+BEGIN {
+ $CfgFile = 'libnet.cfg';
+ $CfgPath = "Net/$CfgFile";
}
-sub MY::post_initialize
-{
- my ($self) = @_;
-
- #--- Create Net::Config
+#===============================================================================
+# MAIN PROGRAM
+#===============================================================================
+
+MAIN: {
+ my %prereq_pms = ();
+ $prereq_pms{'Convert::EBCDIC'} = '0.06' if $^O eq 'os390';
+
+ WriteMakefile(
+ NAME => 'Net',
+ DISTNAME => 'libnet',
+ ABSTRACT => 'Collection of network protocol modules',
+ AUTHOR => 'Graham Barr <gbarr@pobox.com>, Steve Hay <shay@cpan.org>',
+ LICENSE => 'perl_5',
+ VERSION => '1.27',
+
+ META_MERGE => {
+ 'meta-spec' => {
+ version => 2
+ },
+
+ resources => {
+ repository => {
+ type => 'git',
+ url => 'https://github.com/steve-m-hay/perl-libnet.git'
+ }
+ },
+
+ optional_features => {
+ APOP => {
+ description => 'APOP support',
+ prereqs => {
+ runtime => {
+ requires => {
+ 'Digest::MD5' => '0'
+ }
+ }
+ }
+ },
+
+ AUTH => {
+ description => 'AUTH support',
+ prereqs => {
+ runtime => {
+ requires => {
+ 'Authen::SASL' => '0',
+ 'MIME::Base64' => '0'
+ }
+ }
+ }
+ }
+ }
+ },
- my $config_pm = "Net/libnet.cfg";
- my $libnet_cfg = "libnet.cfg";
+ MIN_PERL_VERSION => '5.008001',
- # Use %INC and ExtUtils::MakeMaker to determine how this machine
- # maps package names to path names
+ CONFIGURE_REQUIRES => {
+ 'ExtUtils::MakeMaker' => '6.64',
+ 'Getopt::Std' => '0',
+ 'IO:File' => '0',
+ 'perl' => '5.008001',
+ 'strict' => '0',
+ 'vars' => '0',
+ 'warnings' => '0'
+ },
- foreach (keys %INC) {
- last if ($config_pm = $_) =~ s/^ExtUtils(.)MakeMaker.pm/Net${1}libnet.cfg/;
- }
+ TEST_REQUIRES => {
+ 'Cwd' => '0'
+ },
- system(($^O eq 'VMS' ? 'mcr ': ()),$^X, 'Configure')
- unless -f $libnet_cfg;
+ PREREQ_PM => {
+ %prereq_pms,
+ 'Carp' => '0',
+ 'Errno' => '0',
+ 'Exporter' => '0',
+ 'Fcntl' => '0',
+ 'File::Basename' => '0',
+ 'FileHandle' => '0',
+ 'IO::Select' => '0',
+ 'IO::Socket' => '1.05',
+ 'POSIX' => '0',
+ 'Socket' => '1.3',
+ 'Symbol' => '0',
+ 'Time::Local' => '0',
+ 'strict' => '0',
+ 'vars' => '0'
+ },
- $self->{PM}->{$libnet_cfg} = $self->catfile('$(INST_LIBDIR)',$config_pm);
+ INSTALLDIRS => 'perl',
- "";
-}
+ realclean => {
+ FILES => $CfgFile
+ },
-#--- Check for Socket
-
-chk_version(Socket => '1.30') or
- warn "\n"
- . "*** For Net::Cmd to work you require version 1.30, or later, of\n"
- . " Socket.pm from CPAN/modules/by-module/Socket/Socket-x.x.tar.gz\n\n";
-
-chk_version(IO::Socket => '1.05') or
- warn "\n"
- . "*** For Net::Cmd to work you require version 1.05, or later, of\n"
- . " IO/Socket.pm from CPAN/modules/by-module/IO/IO-x.x.tar.gz\n\n";
-
-if ($^O eq 'os390')
-{
- chk_version(Convert::EBCDIC => '0.06') or
- warn "\n"
- . "*** For Net::Cmd to work on $^O version 0.06, or later, of\n"
- . " Convert::EBCDIC is required, which can be found at"
- . " CPAN/modules/by-module/Convert/Convert-EBCDIC-x.x.tar.gz\n\n";
+ dist => {
+ PREOP => 'find $(DISTVNAME) -type d -print|xargs chmod 0755 && ' .
+ 'find $(DISTVNAME) -type f -print|xargs chmod 0644',
+ TO_UNIX => 'find $(DISTVNAME) -type f -print|xargs dos2unix'
+ }
+ );
}
-#--- Write the Makefile
-
-my @ppd;
+#===============================================================================
+# MAKEMAKER OVERRIDES
+#===============================================================================
-if ($] >= 5.00503) {
- @ppd = (
- AUTHOR => 'Graham Barr <gbarr@pobox.com>',
- ABSTRACT => 'Collection of Network protocol modules',
- );
+sub MY::post_initialize {
+ my $self = shift;
+ return '' if $self->{PERL_CORE};
+ system(($^O eq 'VMS' ? 'mcr ': ()), $^X, 'Configure') unless -f $CfgFile;
+ $self->{PM}{$CfgFile} = $self->catfile('$(INST_LIBDIR)',$CfgPath);
+ return '';
}
-WriteMakefile(
- INSTALLDIRS => ($] >= 5.008 ? 'perl' : 'site'),
- VERSION => $VERSION,
- DISTNAME => $DISTNAME,
- NAME => $NAME,
- 'realclean' => {FILES => $config_pm},
- PREREQ_PM => {
- Socket => 1.3,
- IO::Socket => 1.05
- },
- dist => { DIST_DEFAULT => 'mydist', },
- (eval { ExtUtils::MakeMaker->VERSION(6.21) } ? (LICENSE => 'perl') : ()),
- ( eval { ExtUtils::MakeMaker->VERSION(6.46) } ? (
- META_MERGE => {
- resources => { ##
- repository => 'http://github.com/steve-m-hay/perl-libnet',
- },
- }
- )
- : ()
- ),
- @ppd,
-);
-
-sub MY::postamble {
- return <<'POSTAMBLE';
-
-mydist : distmeta tardist
-
-POSTAMBLE
-
-}
+#===============================================================================
diff --git a/var/tmp/source/SHAY/libnet-1.25/libnet-1.25/Net/Cmd.pm b/var/tmp/source/SHAY/libnet-1.27/libnet-1.27/Net/Cmd.pm
old mode 100755
new mode 100644
@@ -13,7 +13,7 @@ use strict;
@EXPORT = qw(%NetConfig);
@ISA = qw(Net::LocalCfg Exporter);
-$VERSION = "1.13";
+$VERSION = "1.14";
eval { local $SIG{__DIE__}; require Net::LocalCfg };
@@ -49,9 +49,9 @@ my %nc = (
ftp_ext_passive => \$InternetConfig{"646F676F\xA5UsePassiveMode"} || 0,
ftp_int_passive => \$InternetConfig{"646F676F\xA5UsePassiveMode"} || 0,
socks_hosts =>
- \$InternetConfig{ kICUseSocks() } ? [ \$InternetConfig{ kICSocksHost() } ] : [],
+ \$InternetConfig{ kICUseSocks() } ? [ \$InternetConfig{ kICSocksHost() } ] : [],
ftp_firewall =>
- \$InternetConfig{ kICUseFTPProxy() } ? [ \$InternetConfig{ kICFTPProxyHost() } ] : [],
+ \$InternetConfig{ kICUseFTPProxy() } ? [ \$InternetConfig{ kICFTPProxyHost() } ] : [],
);
\@NetConfig{keys %nc} = values %nc;
}
@@ -141,7 +141,7 @@ For example
# .libnetrc
{
nntp_hosts => [ "my_preferred_host" ],
- ph_hosts => [ "my_ph_server" ],
+ ph_hosts => [ "my_ph_server" ],
}
__END__
diff --git a/var/tmp/source/SHAY/libnet-1.25/libnet-1.25/Net/Domain.pm b/var/tmp/source/SHAY/libnet-1.27/libnet-1.27/Net/Domain.pm
old mode 100755
new mode 100644
diff --git a/var/tmp/source/SHAY/libnet-1.25/libnet-1.25/Net/FTP/E.pm b/var/tmp/source/SHAY/libnet-1.27/libnet-1.27/Net/FTP/E.pm
old mode 100755
new mode 100644
diff --git a/var/tmp/source/SHAY/libnet-1.25/libnet-1.25/Net/FTP/I.pm b/var/tmp/source/SHAY/libnet-1.27/libnet-1.27/Net/FTP/I.pm
old mode 100755
new mode 100644
diff --git a/var/tmp/source/SHAY/libnet-1.25/libnet-1.25/Net/FTP/L.pm b/var/tmp/source/SHAY/libnet-1.27/libnet-1.27/Net/FTP/L.pm
old mode 100755
new mode 100644
diff --git a/var/tmp/source/SHAY/libnet-1.25/libnet-1.25/Net/FTP/dataconn.pm b/var/tmp/source/SHAY/libnet-1.27/libnet-1.27/Net/FTP/dataconn.pm
old mode 100755
new mode 100644
diff --git a/var/tmp/source/SHAY/libnet-1.25/libnet-1.25/Net/FTP.pm b/var/tmp/source/SHAY/libnet-1.27/libnet-1.27/Net/FTP.pm
old mode 100755
new mode 100644
diff --git a/var/tmp/source/SHAY/libnet-1.25/libnet-1.25/Net/NNTP.pm b/var/tmp/source/SHAY/libnet-1.27/libnet-1.27/Net/NNTP.pm
old mode 100755
new mode 100644
diff --git a/var/tmp/source/SHAY/libnet-1.25/libnet-1.25/Net/Netrc.pm b/var/tmp/source/SHAY/libnet-1.27/libnet-1.27/Net/Netrc.pm
old mode 100755
new mode 100644
diff --git a/var/tmp/source/SHAY/libnet-1.25/libnet-1.25/Net/POP3.pm b/var/tmp/source/SHAY/libnet-1.27/libnet-1.27/Net/POP3.pm
old mode 100755
new mode 100644
@@ -16,7 +16,7 @@ use IO::Socket;
use Net::Cmd;
use Net::Config;
-$VERSION = "2.33";
+$VERSION = "2.34";
@ISA = qw(Net::Cmd IO::Socket::INET);
@@ -642,24 +642,24 @@ Example:
$smtp = Net::SMTP->new('mailhost',
- Hello => 'my.mail.domain',
- Timeout => 30,
+ Hello => 'my.mail.domain',
+ Timeout => 30,
Debug => 1,
- );
+ );
# the same
$smtp = Net::SMTP->new(
- Host => 'mailhost',
- Hello => 'my.mail.domain',
- Timeout => 30,
+ Host => 'mailhost',
+ Hello => 'my.mail.domain',
+ Timeout => 30,
Debug => 1,
- );
+ );
# Connect to the default server from Net::config
$smtp = Net::SMTP->new(
- Hello => 'my.mail.domain',
- Timeout => 30,
- );
+ Hello => 'my.mail.domain',
+ Timeout => 30,
+ );
=back
@@ -17,7 +17,7 @@ use IO::Select;
@ISA = qw(Exporter);
@EXPORT_OK = qw(inet_time inet_daytime);
-$VERSION = "2.10";
+$VERSION = "2.11";
$TIMEOUT = 120;
@@ -107,11 +107,11 @@ Net::Time - time and daytime network client interface
use Net::Time qw(inet_time inet_daytime);
- print inet_time(); # use default host from Net::Config
+ print inet_time(); # use default host from Net::Config
print inet_time('localhost');
print inet_time('localhost', 'tcp');
- print inet_daytime(); # use default host from Net::Config
+ print inet_daytime(); # use default host from Net::Config
print inet_daytime('localhost');
print inet_daytime('localhost', 'tcp');
diff --git a/var/tmp/source/SHAY/libnet-1.25/libnet-1.25/Net/libnetFAQ.pod b/var/tmp/source/SHAY/libnet-1.27/libnet-1.27/Net/libnetFAQ.pod
old mode 100755
new mode 100644
@@ -10,12 +10,12 @@ point look at:
The RFC implemented in this distribution are
-Net::FTP RFC959 File Transfer Protocol
-Net::SMTP RFC821 Simple Mail Transfer Protocol
-Net::Time RFC867 Daytime Protocol
-Net::Time RFC868 Time Protocol
-Net::NNTP RFC977 Network News Transfer Protocol
-Net::POP3 RFC1939 Post Office Protocol 3
+Net::FTP RFC959 File Transfer Protocol
+Net::SMTP RFC821 Simple Mail Transfer Protocol
+Net::Time RFC867 Daytime Protocol
+Net::Time RFC868 Time Protocol
+Net::NNTP RFC977 Network News Transfer Protocol
+Net::POP3 RFC1939 Post Office Protocol 3
AVAILABILITY
diff --git a/var/tmp/source/SHAY/libnet-1.25/libnet-1.25/demos/ftp b/var/tmp/source/SHAY/libnet-1.27/libnet-1.27/demos/ftp
old mode 100755
new mode 100644
diff --git a/var/tmp/source/SHAY/libnet-1.25/libnet-1.25/demos/inetd b/var/tmp/source/SHAY/libnet-1.27/libnet-1.27/demos/inetd
old mode 100755
new mode 100644
diff --git a/var/tmp/source/SHAY/libnet-1.25/libnet-1.25/demos/nntp b/var/tmp/source/SHAY/libnet-1.27/libnet-1.27/demos/nntp
old mode 100755
new mode 100644
diff --git a/var/tmp/source/SHAY/libnet-1.25/libnet-1.25/demos/nntp.mirror b/var/tmp/source/SHAY/libnet-1.27/libnet-1.27/demos/nntp.mirror
old mode 100755
new mode 100644
diff --git a/var/tmp/source/SHAY/libnet-1.25/libnet-1.25/demos/pop3 b/var/tmp/source/SHAY/libnet-1.27/libnet-1.27/demos/pop3
old mode 100755
new mode 100644
diff --git a/var/tmp/source/SHAY/libnet-1.25/libnet-1.25/demos/smtp.self b/var/tmp/source/SHAY/libnet-1.27/libnet-1.27/demos/smtp.self
old mode 100755
new mode 100644
diff --git a/var/tmp/source/SHAY/libnet-1.25/libnet-1.25/demos/time b/var/tmp/source/SHAY/libnet-1.27/libnet-1.27/demos/time
old mode 100755
new mode 100644
diff --git a/var/tmp/source/SHAY/libnet-1.25/libnet-1.25/install-nomake b/var/tmp/source/SHAY/libnet-1.27/libnet-1.27/install-nomake
old mode 100755
new mode 100644
@@ -2,11 +2,11 @@
BEGIN {
if ($ENV{PERL_CORE}) {
- chdir 't' if -d 't';
- @INC = '../lib';
+ chdir 't' if -d 't';
+ @INC = '../lib';
}
if (!eval "require Socket") {
- print "1..0 # no Socket\n"; exit 0;
+ print "1..0 # no Socket\n"; exit 0;
}
undef *{Socket::inet_aton};
undef *{Socket::inet_ntoa};
@@ -19,29 +19,29 @@ BEGIN {
package Socket;
sub import {
- my $pkg = caller();
- no strict 'refs';
- *{ $pkg . '::inet_aton' } = \&inet_aton;
- *{ $pkg . '::inet_ntoa' } = \&inet_ntoa;
+ my $pkg = caller();
+ no strict 'refs';
+ *{ $pkg . '::inet_aton' } = \&inet_aton;
+ *{ $pkg . '::inet_ntoa' } = \&inet_ntoa;
}
my $fail = 0;
my %names;
sub set_fail {
- $fail = shift;
+ $fail = shift;
}
sub inet_aton {
- return if $fail;
- my $num = unpack('N', pack('C*', split(/\./, $_[0])));
- $names{$num} = $_[0];
- return $num;
+ return if $fail;
+ my $num = unpack('N', pack('C*', split(/\./, $_[0])));
+ $names{$num} = $_[0];
+ return $num;
}
sub inet_ntoa {
- return if $fail;
- return $names{$_[0]};
+ return if $fail;
+ return $names{$_[0]};
}
package main;
@@ -59,29 +59,29 @@ ok( keys %NetConfig, '%NetConfig should be imported' );
Socket::set_fail(1);
undef $NetConfig{'ftp_firewall'};
is( Net::Config->requires_firewall(), 0,
- 'requires_firewall() should return 0 without ftp_firewall defined' );
+ 'requires_firewall() should return 0 without ftp_firewall defined' );
$NetConfig{'ftp_firewall'} = 1;
is( Net::Config->requires_firewall('a.host.not.there'), -1,
- '... should return -1 without a valid hostname' );
+ '... should return -1 without a valid hostname' );
Socket::set_fail(0);
delete $NetConfig{'local_netmask'};
is( Net::Config->requires_firewall('127.0.0.1'), 0,
- '... should return 0 without local_netmask defined' );
+ '... should return 0 without local_netmask defined' );
$NetConfig{'local_netmask'} = '127.0.0.1/24';
is( Net::Config->requires_firewall('127.0.0.1'), 0,
- '... should return false if host is within netmask' );
+ '... should return false if host is within netmask' );
is( Net::Config->requires_firewall('192.168.10.0'), 1,
- '... should return true if host is outside netmask' );
+ '... should return true if host is outside netmask' );
# now try more netmasks
$NetConfig{'local_netmask'} = [ '127.0.0.1/24', '10.0.0.0/8' ];
is( Net::Config->requires_firewall('10.10.255.254'), 0,
- '... should find success with mutiple local netmasks' );
+ '... should find success with mutiple local netmasks' );
is( Net::Config->requires_firewall('192.168.10.0'), 1,
- '... should handle failure with multiple local netmasks' );
+ '... should handle failure with multiple local netmasks' );
is( \&Net::Config::is_external, \&Net::Config::requires_firewall,
- 'is_external() should be an alias for requires_firewall()' );
+ 'is_external() should be an alias for requires_firewall()' );
@@ -2,11 +2,11 @@
BEGIN {
if ($ENV{PERL_CORE}) {
- chdir 't' if -d 't';
- @INC = '../lib';
+ chdir 't' if -d 't';
+ @INC = '../lib';
}
if (!eval "require Socket") {
- print "1..0 # no Socket\n"; exit 0;
+ print "1..0 # no Socket\n"; exit 0;
}
if (ord('A') == 193 && !eval "require Convert::EBCDIC") {
print "1..0 # EBCDIC but no Convert::EBCDIC\n"; exit 0;
@@ -2,11 +2,11 @@
BEGIN {
unless (-d 'blib') {
- chdir 't' if -d 't';
- @INC = '../lib';
+ chdir 't' if -d 't';
+ @INC = '../lib';
}
if (!eval "require Socket") {
- print "1..0 # Skip: no Socket module\n"; exit 0;
+ print "1..0 # Skip: no Socket module\n"; exit 0;
}
if (ord('A') == 193 && !eval "require Convert::EBCDIC") {
print "1..0 # Skip: EBCDIC but no Convert::EBCDIC\n"; exit 0;
@@ -30,7 +30,7 @@ my $t = 1;
print "1..7\n";
$ftp = Net::FTP->new($NetConfig{ftp_testhost})
- or (print("not ok 1\n"), exit);
+ or (print("not ok 1\n"), exit);
printf "ok %d\n",$t++;
@@ -2,11 +2,11 @@
BEGIN {
unless (-d 'blib') {
- chdir 't' if -d 't';
- @INC = '../lib';
+ chdir 't' if -d 't';
+ @INC = '../lib';
}
if (!eval "require Socket") {
- print "1..0 # no Socket\n"; exit 0;
+ print "1..0 # no Socket\n"; exit 0;
}
if (ord('A') == 193 && !eval "require Convert::EBCDIC") {
print "1..0 # EBCDIC but no Convert::EBCDIC\n"; exit 0;
@@ -1,36 +1,36 @@
my $number = 0;
sub ok {
- my ($condition, $name) = @_;
+ my ($condition, $name) = @_;
- my $message = $condition ? "ok " : "not ok ";
- $message .= ++$number;
- $message .= " # $name" if defined $name;
- print $message, "\n";
- return $condition;
+ my $message = $condition ? "ok " : "not ok ";
+ $message .= ++$number;
+ $message .= " # $name" if defined $name;
+ print $message, "\n";
+ return $condition;
}
sub is {
- my ($got, $expected, $name) = @_;
+ my ($got, $expected, $name) = @_;
- for ($got, $expected) {
- $_ = 'undef' unless defined $_;
- }
+ for ($got, $expected) {
+ $_ = 'undef' unless defined $_;
+ }
- unless (ok($got eq $expected, $name)) {
- warn "Got: '$got'\nExpected: '$expected'\n" . join(' ', caller) . "\n";
- }
+ unless (ok($got eq $expected, $name)) {
+ warn "Got: '$got'\nExpected: '$expected'\n" . join(' ', caller) . "\n";
+ }
}
sub skip {
- my ($reason, $num) = @_;
- $reason ||= '';
- $number ||= 1;
-
- for (1 .. $num) {
- $number++;
- print "ok $number # skip $reason\n";
- }
+ my ($reason, $num) = @_;
+ $reason ||= '';
+ $number ||= 1;
+
+ for (1 .. $num) {
+ $number++;
+ print "ok $number # skip $reason\n";
+ }
}
1;
@@ -2,11 +2,11 @@
BEGIN {
if ($ENV{PERL_CORE}) {
- chdir 't' if -d 't';
- @INC = '../lib';
+ chdir 't' if -d 't';
+ @INC = '../lib';
}
if (!eval "require Socket") {
- print "1..0 # no Socket\n"; exit 0;
+ print "1..0 # no Socket\n"; exit 0;
}
if (ord('A') == 193 && !eval "require Convert::EBCDIC") {
print "1..0 # EBCDIC but no Convert::EBCDIC\n"; exit 0;
@@ -25,13 +25,13 @@ $ENV{HOME} = Cwd::cwd();
local (*CORE::GLOBAL::getpwuid, *CORE::GLOBAL::stat);
*CORE::GLOBAL::getpwuid = sub ($) {
- ((undef) x 7, Cwd::cwd());
+ ((undef) x 7, Cwd::cwd());
};
# for testing _readrc
my @stat;
*CORE::GLOBAL::stat = sub (*) {
- return @stat;
+ return @stat;
};
# for testing _readrc
@@ -47,29 +47,29 @@ ok( exists $INC{'Net/Netrc.pm'}, 'should be able to use Net::Netrc' );
$Net::Netrc::TESTING=$Net::Netrc::TESTING=1;
SKIP: {
- skip('incompatible stat() handling for OS', 4), next SKIP
- if ($^O =~ /os2|win32|macos|cygwin/i or $] < 5.005);
-
- my $warn;
- local $SIG{__WARN__} = sub {
- $warn = shift;
- };
-
- # add write access for group/other
- $stat[2] = 077;
- ok( !defined(Net::Netrc::_readrc()),
- '_readrc() should not read world-writable file' );
- ok( scalar($warn =~ /^Bad permissions:/),
- '... and should warn about it' );
-
- # the owner field should still not match
- $stat[2] = 0;
+ skip('incompatible stat() handling for OS', 4), next SKIP
+ if ($^O =~ /os2|win32|macos|cygwin/i or $] < 5.005);
+
+ my $warn;
+ local $SIG{__WARN__} = sub {
+ $warn = shift;
+ };
+
+ # add write access for group/other
+ $stat[2] = 077;
+ ok( !defined(Net::Netrc::_readrc()),
+ '_readrc() should not read world-writable file' );
+ ok( scalar($warn =~ /^Bad permissions:/),
+ '... and should warn about it' );
+
+ # the owner field should still not match
+ $stat[2] = 0;
if ($<) {
ok( !defined(Net::Netrc::_readrc()),
'_readrc() should not read file owned by someone else' );
ok( scalar($warn =~ /^Not owner:/),
- '... and should warn about it' );
+ '... and should warn about it' );
} else {
skip("testing as root",2);
}
@@ -80,15 +80,15 @@ $stat[4] = $<;
# this curious mix of spaces and quotes tests a regex at line 79 (version 2.11)
FileHandle::set_lines(split(/\n/, <<LINES));
-macdef bar
-login baz
- machine "foo"
-login nigol "password" drowssap
-machine foo "login" l2
- password p2
-account tnuocca
-default login "baz" password p2
-default "login" baz password p3
+macdef bar
+login baz
+machine "foo"
+login nigol "password" drowssap
+machine foo "login" l2
+password p2
+account tnuocca
+default login "baz" password p2
+default "login" baz password p3
macdef
LINES
@@ -97,59 +97,59 @@ is( Net::Netrc::_readrc(), 1, '_readrc() should succeed now' );
# on 'foo', the login is 'nigol'
is( Net::Netrc->lookup('foo')->{login}, 'nigol',
- 'lookup() should find value by host name' );
+ 'lookup() should find value by host name' );
# on 'foo' with login 'l2', the password is 'p2'
is( Net::Netrc->lookup('foo', 'l2')->{password}, 'p2',
- 'lookup() should find value by hostname and login name' );
+ 'lookup() should find value by hostname and login name' );
# the default password is 'p3', as later declarations have priority
is( Net::Netrc->lookup()->{password}, 'p3',
- 'lookup() should find default value' );
+ 'lookup() should find default value' );
# lookup() ignores the login parameter when using default data
is( Net::Netrc->lookup('default', 'baz')->{password}, 'p3',
- 'lookup() should ignore passed login when searching default' );
+ 'lookup() should ignore passed login when searching default' );
# lookup() goes to default data if hostname cannot be found in config data
is( Net::Netrc->lookup('abadname')->{login}, 'baz',
- 'lookup() should use default for unknown machine name' );
+ 'lookup() should use default for unknown machine name' );
# now test these accessors
my $instance = bless({}, 'Net::Netrc');
for my $accessor (qw( login account password )) {
- is( $instance->$accessor(), undef,
- "$accessor() should return undef if $accessor is not set" );
- $instance->{$accessor} = $accessor;
- is( $instance->$accessor(), $accessor,
- "$accessor() should return value when $accessor is set" );
+ is( $instance->$accessor(), undef,
+ "$accessor() should return undef if $accessor is not set" );
+ $instance->{$accessor} = $accessor;
+ is( $instance->$accessor(), $accessor,
+ "$accessor() should return value when $accessor is set" );
}
# and the three-for-one accessor
is( scalar( () = $instance->lpa()), 3,
- 'lpa() should return login, password, account');
+ 'lpa() should return login, password, account');
is( join(' ', $instance->lpa), 'login password account',
- 'lpa() should return appropriate values for l, p, and a' );
+ 'lpa() should return appropriate values for l, p, and a' );
package FileHandle;
sub new {
- tie *FH, 'FileHandle', @_;
- bless \*FH, $_[0];
+ tie *FH, 'FileHandle', @_;
+ bless \*FH, $_[0];
}
sub TIEHANDLE {
- my ($class, $file, $mode) = @_[0,2,3];
- bless({ file => $file, mode => $mode }, $class);
+ my ($class, $file, $mode) = @_[0,2,3];
+ bless({ file => $file, mode => $mode }, $class);
}
my @lines;
sub set_lines {
- @lines = @_;
+ @lines = @_;
}
sub READLINE {
- shift @lines;
+ shift @lines;
}
sub close { 1 }
@@ -2,11 +2,11 @@
BEGIN {
unless (-d 'blib') {
- chdir 't' if -d 't';
- @INC = '../lib';
+ chdir 't' if -d 't';
+ @INC = '../lib';
}
if (!eval "require Socket") {
- print "1..0 # no Socket\n"; exit 0;
+ print "1..0 # no Socket\n"; exit 0;
}
if (ord('A') == 193 && !eval "require Convert::EBCDIC") {
print "1..0 # EBCDIC but no Convert::EBCDIC\n"; exit 0;
@@ -27,7 +27,7 @@ print "1..4\n";
my $i = 1;
$nntp = Net::NNTP->new(Debug => 0)
- or (print("not ok 1\n"), exit);
+ or (print("not ok 1\n"), exit);
print "ok 1\n";
@@ -2,11 +2,11 @@
BEGIN {
unless (-d 'blib') {
- chdir 't' if -d 't';
- @INC = '../lib';
+ chdir 't' if -d 't';
+ @INC = '../lib';
}
if (!eval "require Socket") {
- print "1..0 # no Socket\n"; exit 0;
+ print "1..0 # no Socket\n"; exit 0;
}
if (ord('A') == 193 && !eval "require Convert::EBCDIC") {
print "1..0 # EBCDIC but no Convert::EBCDIC\n"; exit 0;
@@ -2,11 +2,11 @@
BEGIN {
unless (-d 'blib') {
- chdir 't' if -d 't';
- @INC = '../lib';
+ chdir 't' if -d 't';
+ @INC = '../lib';
}
if (!eval "require Socket") {
- print "1..0 # no Socket\n"; exit 0;
+ print "1..0 # no Socket\n"; exit 0;
}
if (ord('A') == 193 && !eval "require Convert::EBCDIC") {
print "1..0 # EBCDIC but no Convert::EBCDIC\n"; exit 0;
@@ -26,7 +26,7 @@ print "1..3\n";
my $i = 1;
$smtp = Net::SMTP->new(Debug => 0)
- or (print("not ok 1\n"), exit);
+ or (print("not ok 1\n"), exit);
print "ok 1\n";
@@ -2,14 +2,14 @@
BEGIN {
if ($ENV{PERL_CORE}) {
- chdir 't' if -d 't';
- @INC = '../lib';
+ chdir 't' if -d 't';
+ @INC = '../lib';
}
if (!eval "require Socket") {
- print "1..0 # no Socket\n"; exit 0;
+ print "1..0 # no Socket\n"; exit 0;
}
if (ord('A') == 193 && !eval "require Convert::EBCDIC") {
- print "1..0 # EBCDIC but no Convert::EBCDIC\n"; exit 0;
+ print "1..0 # EBCDIC but no Convert::EBCDIC\n"; exit 0;
}
$INC{'IO/Socket.pm'} = 1;
$INC{'IO/Select.pm'} = 1;
@@ -50,84 +50,84 @@ is( Net::Time::inet_daytime('bob'), 'z', 'inet_daytime() should receive data' );
# magic numbers defined in Net::Time
my $offset = $^O eq 'MacOS' ?
- (4 * 31536000) : (70 * 31536000 + 17 * 86400);
+ (4 * 31536000) : (70 * 31536000 + 17 * 86400);
# check for correct args (time, 13)
# pretend it is only six seconds since the offset, create a fake message
# inet_time
IO::Socket::INET::set_message(pack("N", $offset + 6));
is( Net::Time::inet_time('foo'), 6,
- 'inet_time() should calculate time since offset for time()' );
+ 'inet_time() should calculate time since offset for time()' );
my %fail;
sub make_fail {
- my ($pack, $func, $num) = @_;
- $num = 1 unless defined $num;
+ my ($pack, $func, $num) = @_;
+ $num = 1 unless defined $num;
- $fail{$pack}{$func} = $num;
+ $fail{$pack}{$func} = $num;
}
package IO::Socket::INET;
$fail{'IO::Socket::INET'} = {
- new => 0,
- 'send' => 0,
+ new => 0,
+ 'send' => 0,
};
sub new {
- my $class = shift;
- return if $fail{$class}{new} and $fail{$class}{new}--;
- bless( { @_ }, $class );
+ my $class = shift;
+ return if $fail{$class}{new} and $fail{$class}{new}--;
+ bless( { @_ }, $class );
}
sub send {
- my $self = shift;
- my $class = ref($self);
- return if $fail{$class}{'send'} and $fail{$class}{'send'}--;
- $self->{sent} .= shift;
+ my $self = shift;
+ my $class = ref($self);
+ return if $fail{$class}{'send'} and $fail{$class}{'send'}--;
+ $self->{sent} .= shift;
}
my $msg;
sub set_message {
- if (ref($_[0])) {
- $_[0]->{msg} = $_[1];
- } else {
- $msg = shift;
- }
+ if (ref($_[0])) {
+ $_[0]->{msg} = $_[1];
+ } else {
+ $msg = shift;
+ }
}
sub do_recv {
- my ($len, $msg) = @_[1,2];
- $_[0] .= substr($msg, 0, $len);
+ my ($len, $msg) = @_[1,2];
+ $_[0] .= substr($msg, 0, $len);
}
sub recv {
- my ($self, $buf, $length, $flags) = @_;
- my $message = exists $self->{msg} ?
- $self->{msg} : $msg;
-
- if (defined($message)) {
- do_recv($_[1], $length, $message);
- }
- 1;
+ my ($self, $buf, $length, $flags) = @_;
+ my $message = exists $self->{msg} ?
+ $self->{msg} : $msg;
+
+ if (defined($message)) {
+ do_recv($_[1], $length, $message);
+ }
+ 1;
}
package IO::Select;
sub new {
- my $class = shift;
- return if defined $fail{$class}{new} and $fail{$class}{new}--;
- bless({sock => shift}, $class);
+ my $class = shift;
+ return if defined $fail{$class}{new} and $fail{$class}{new}--;
+ bless({sock => shift}, $class);
}
sub can_read {
- my ($self, $timeout) = @_;
- my $class = ref($self);
- return if defined $fail{$class}{can_read} and $fail{class}{can_read}--;
- $self->{sock}{timeout} = $timeout;
- 1;
+ my ($self, $timeout) = @_;
+ my $class = ref($self);
+ return if defined $fail{$class}{can_read} and $fail{class}{can_read}--;
+ $self->{sock}{timeout} = $timeout;
+ 1;
}
1;