Release 1.09 v1.09

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 <gbarr@pobox.com> (Graham Barr)
+
+        Added test for Net::Config from chromatic
+
+Change 663 on 2001/10/26 by <gbarr@pobox.com> (Graham Barr)
+
+        More fixes from the core for undefs
+
+Change 662 on 2001/10/26 by <gbarr@pobox.com> (Graham Barr)
+
+        Make tests compatable with the perl core distribution
+
+Change 661 on 2001/10/26 by <gbarr@pobox.com> (Graham Barr)
+
+        Add install-nomake to install libnet on machines that do not
+        have make available
+
+Change 660 on 2001/10/26 by <gbarr@pobox.com> (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 <gbarr@pobox.com> (Graham Barr)
+
+        Net::Domain
+        - Be more robust if no hostname or domainname
+          (especially the latter)
+
+Change 658 on 2001/10/22 by <gbarr@pobox.com> (Graham Barr)
+
+        Net::Config
+        - Protect eval's from user defining $SIG{__DIE__}
+
+Change 657 on 2001/10/22 by <gbarr@pobox.com> (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 <gbarr@pobox.com> (Graham Barr)
+
+        Net::Config
+        - Pod updates from chromatic
+
+Change 655 on 2001/10/22 by <gbarr@pobox.com> (Graham Barr)
+
+        Net::SMTP
+        - Don't be sensetive to extra spaces on reply to HELO
+
+Change 654 on 2001/10/22 by <gbarr@pobox.com> (Graham Barr)
+
+        Net::Netrc
+        - Update lookup() docs to describe what happens if no .netrc file is found
+
+Change 653 on 2001/10/22 by <gbarr@pobox.com> (Graham Barr)
+
+        Net::FTP
+        - Fix hash() to match docs (patch from Doug Wilson)
+
+Change 652 on 2001/09/21 by <gbarr@pobox.com> (Graham Barr)
+
+        Net::FTP
+        - Fix patterns in ->size and ->supported
+
+Change 651 on 2001/09/21 by <gbarr@pobox.com> (Graham Barr)
+
+        Net::Config, Net::Netrc
+        - Handle $home on w2k
+
+Change 650 on 2001/09/21 by <gbarr@pobox.com> (Graham Barr)
+
+        Net::Domain
+        - Fix some potential undef warnings
+
+Change 649 on 2001/09/21 by <gbarr@pobox.com> (Graham Barr)
+
+        Net::FTP
+        - Add FirewallType as an option to ->new
+
+Change 648 on 2001/09/21 by <gbarr@pobox.com> (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 <gbarr@pobox.com> (Graham Barr)
+
+        Net::FTP::I
+        - Avoid uninit warning
+
+Change 627 on 2001/08/20 by <gbarr@pobox.com> (Graham Barr)
+
+        Remove tests for modules removed from dist
+
+Change 626 on 2001/08/17 by <gbarr@pobox.com> (Graham Barr)
+
+        Increment VERSIONs
+
+Change 625 on 2001/08/17 by <gbarr@pobox.com> (Graham Barr)
+
+        Doc updates and add cc and bcc as aliases for recipient
+
+Change 624 on 2001/08/17 by <gbarr@pobox.com> (Graham Barr)
+
+        Don't set ENV variables
+
+Change 623 on 2001/08/17 by <gbarr@pobox.com> (Graham Barr)
+
+        Support mixed case in the EHLO response
+
+Change 622 on 2001/08/06 by <gbarr@pobox.com> (Graham Barr)
+
+        Documentation update
+
+Change 621 on 2001/08/06 by <gbarr@pobox.com> (Graham Barr)
+
+        Set the status if command returns due to the connection being closed
+
+Change 620 on 2001/08/06 by <gbarr@pobox.com> (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 <gbarr@pobox.com> (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);
-}