From 27bcd08356b24147aad87469e416d7325ec8eaa1 Mon Sep 17 00:00:00 2001 From: Graham Barr Date: Fri, 2 Nov 2001 19:15:12 +0000 Subject: Release 1.09 --- ChangeLog | 120 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Makefile.PL | 2 +- t/config.t | 50 ++----------------------- 3 files changed, 125 insertions(+), 47 deletions(-) diff --git a/ChangeLog b/ChangeLog index fcd4576..33fab3c 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,123 @@ +Change 664 on 2001/10/29 by (Graham Barr) + + Added test for Net::Config from chromatic + +Change 663 on 2001/10/26 by (Graham Barr) + + More fixes from the core for undefs + +Change 662 on 2001/10/26 by (Graham Barr) + + Make tests compatable with the perl core distribution + +Change 661 on 2001/10/26 by (Graham Barr) + + Add install-nomake to install libnet on machines that do not + have make available + +Change 660 on 2001/10/26 by (Graham Barr) + + Net::Cmd + - Ensure we don't insert an extra CR during LF=>CRLF when the CR already exists + +Change 659 on 2001/10/22 by (Graham Barr) + + Net::Domain + - Be more robust if no hostname or domainname + (especially the latter) + +Change 658 on 2001/10/22 by (Graham Barr) + + Net::Config + - Protect eval's from user defining $SIG{__DIE__} + +Change 657 on 2001/10/22 by (Graham Barr) + + Net::Config + - Fix handling of single values passed, when a ref to an array is wanted + +Change 656 on 2001/10/22 by (Graham Barr) + + Net::Config + - Pod updates from chromatic + +Change 655 on 2001/10/22 by (Graham Barr) + + Net::SMTP + - Don't be sensetive to extra spaces on reply to HELO + +Change 654 on 2001/10/22 by (Graham Barr) + + Net::Netrc + - Update lookup() docs to describe what happens if no .netrc file is found + +Change 653 on 2001/10/22 by (Graham Barr) + + Net::FTP + - Fix hash() to match docs (patch from Doug Wilson) + +Change 652 on 2001/09/21 by (Graham Barr) + + Net::FTP + - Fix patterns in ->size and ->supported + +Change 651 on 2001/09/21 by (Graham Barr) + + Net::Config, Net::Netrc + - Handle $home on w2k + +Change 650 on 2001/09/21 by (Graham Barr) + + Net::Domain + - Fix some potential undef warnings + +Change 649 on 2001/09/21 by (Graham Barr) + + Net::FTP + - Add FirewallType as an option to ->new + +Change 648 on 2001/09/21 by (Graham Barr) + + Net::FTP + - use sysopen instead of open so we don't get caught by special chars in the filename + +Change 630 on 2001/08/31 by (Graham Barr) + + Net::FTP::I + - Avoid uninit warning + +Change 627 on 2001/08/20 by (Graham Barr) + + Remove tests for modules removed from dist + +Change 626 on 2001/08/17 by (Graham Barr) + + Increment VERSIONs + +Change 625 on 2001/08/17 by (Graham Barr) + + Doc updates and add cc and bcc as aliases for recipient + +Change 624 on 2001/08/17 by (Graham Barr) + + Don't set ENV variables + +Change 623 on 2001/08/17 by (Graham Barr) + + Support mixed case in the EHLO response + +Change 622 on 2001/08/06 by (Graham Barr) + + Documentation update + +Change 621 on 2001/08/06 by (Graham Barr) + + Set the status if command returns due to the connection being closed + +Change 620 on 2001/08/06 by (Graham Barr) + + Fix for _msg_spec when passed the same msg number twice, pass N instead of N-N + Change 625 on 2001/08/17 by (Graham Barr) Doc updates and add cc and bcc as aliases for recipient diff --git a/Makefile.PL b/Makefile.PL index 6daf48c..7b004ea 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -5,7 +5,7 @@ $NAME = 'Net'; $DISTNAME = "libnet"; -$VERSION = "1.07"; +$VERSION = "1.09"; BEGIN { require 5.002 } diff --git a/t/config.t b/t/config.t index 489b607..95a77aa 100644 --- a/t/config.t +++ b/t/config.t @@ -1,15 +1,16 @@ #!./perl -w BEGIN { - chdir 't' if -d 't'; if ($ENV{PERL_CORE}) { + chdir 't' if -d 't'; @INC = '../lib'; } } -require "libnet_t.pl"; +(my $libnet_t = __FILE__) =~ s/config.t/libnet_t.pl/; +require $libnet_t; -print "1..14\n"; +print "1..10\n"; use Net::Config; ok( exists $INC{'Net/Config.pm'}, 'Net::Config should have been used' ); @@ -40,48 +41,5 @@ is( Net::Config->requires_firewall('10.10.255.254'), 0, is( Net::Config->requires_firewall('192.168.10.0'), 1, '... should handle failure with multiple local netmasks' ); -# now fool Perl into compiling this again. HEY, LOOK OVER THERE! -my $path = $INC{'Net/Config.pm'}; -delete $INC{'Net/Config.pm'}; - -# Net::Config populates %NetConfig from 'libnet.cfg', if possible -my $wrote_file = 0; - -(my $cfgfile = $path) =~ s/Config.pm/libnet.cfg/; -if (open(OUT, '>' . $cfgfile)) { - use Data::Dumper; - print OUT Dumper({ - some_hosts => [ 1, 2, 3 ], - time_hosts => 'abc', - some_value => 11, - }); - close OUT; - $wrote_file = 1; -} - -if ($wrote_file) { - { - local $^W; - # and here comes Net::Config, again! no import() necessary - require $path; - } - - is( $NetConfig{some_value}, 11, - 'Net::Config should populate %NetConfig from libnet.cfg file' ); - is( scalar @{ $NetConfig{time_hosts} }, 1, - '... should turn _hosts keys into array references' ); - is( scalar @{ $NetConfig{some_hosts} }, 3, - '... should not mangle existing array references' ); - is( $NetConfig{some_hosts}[0], 1, - '... and one last check for multivalues' ); - -} else { - skip("could not write cfg file to $cfgfile: $!", 4); -} - is( \&Net::Config::is_external, \&Net::Config::requires_firewall, 'is_external() should be an alias for requires_firewall()' ); - -END { - 1 while unlink ($cfgfile); -} -- cgit v1.2.3-24-ge0c7