Perl 5.12.2 from CPAN

1 files changed, 24 insertions, 24 deletions

diff --git a/gnu/usr.bin/perl/cpan/CPANPLUS/t/01_CPANPLUS-Configure.t b/gnu/usr.bin/perl/cpan/CPANPLUS/t/01_CPANPLUS-Configure.t
index 152a9ac632f..fc02640c7aa 100755
--- a/gnu/usr.bin/perl/cpan/CPANPLUS/t/01_CPANPLUS-Configure.t
+++ b/gnu/usr.bin/perl/cpan/CPANPLUS/t/01_CPANPLUS-Configure.t
@@ -1,6 +1,6 @@
 ### make sure we can find our conf.pl file
-BEGIN {
-    use FindBin;
+BEGIN { 
+    use FindBin; 
     require "$FindBin::Bin/inc/conf.pl";
 }
 
@@ -15,7 +15,7 @@ my $Config_pm   = 'CPANPLUS/Config.pm';
 
 for my $mod (qw[CPANPLUS::Configure]) {
     use_ok($mod) or diag qq[Can't load $mod];
-}
+}    
 
 my $c = CPANPLUS::Configure->new();
 isa_ok($c, 'CPANPLUS::Configure');
@@ -38,33 +38,33 @@ for my $cat ( $r->ls_accessors ) {
     ### copy for use on the config object itself
     my $accessor    = $cat;
     my $prepend     = ($cat =~ s/^_//) ? '_' : '';
-
+    
     my $getmeth     = $prepend . 'get_'. $cat;
     my $setmeth     = $prepend . 'set_'. $cat;
     my $addmeth     = $prepend . 'add_'. $cat;
-
+    
     ok( scalar(@options),               "Possible options obtained" );
-
+    
     ### test adding keys too ###
     {   my $add_key = 'test_key';
         my $add_val = [1..3];
-
+    
         my $found = grep { $add_key eq $_ } @options;
         ok( !$found,                    "Key '$add_key' not yet defined" );
         ok( $c->$addmeth( $add_key => $add_val ),
-                                        "   $addmeth('$add_key' => VAL)" );
+                                        "   $addmeth('$add_key' => VAL)" ); 
 
         ### this one now also exists ###
         push @options, $add_key
     }
 
-    ### poke in the object, get the actual hashref out ###
+    ### poke in the object, get the actual hashref out ### 
     my %hash = map {
-        $_ => $r->$accessor->$_
+        $_ => $r->$accessor->$_     
     } $r->$accessor->ls_accessors;
-
+    
     while( my ($key,$val) = each %hash ) {
-        my $is = $c->$getmeth($key);
+        my $is = $c->$getmeth($key); 
         is_deeply( $val, $is,           "deep check for '$key'" );
         ok( $c->$setmeth($key => 1 ),   "   $setmeth('$key' => 1)" );
         is( $c->$getmeth($key), 1,      "   $getmeth('$key')" );
@@ -74,15 +74,15 @@ for my $cat ( $r->ls_accessors ) {
     ### now check if we found all the keys with options or not ###
     delete $hash{$_} for @options;
     ok( !(scalar keys %hash),          "All possible keys found" );
-
-}
+    
+}    
 
 
 ### see if we can save the config ###
 {   my $dir     = File::Spec->rel2abs('dummy-cpanplus');
     my $pm      = 'CPANPLUS::Config::Test' . $$;
     my $file    = $c->save( $pm, $dir );
-
+    
     ok( $file,                  "Config $pm saved" );
     ok( -e $file,               "   File exists" );
     ok( -s $file,               "   File has size" );
@@ -92,23 +92,23 @@ for my $cat ( $r->ls_accessors ) {
         ok( $c->init( rescan => 1 ),
                                 "Reran ->init()" );
     }
-
+    
     ### make sure this file is now loaded
-    ### XXX can't trust bloody dir separators on Win32 in %INC,
+    ### XXX can't trust bloody dir seperators on Win32 in %INC,
     ### so rather than an exact match, do a grep...
-    my ($found) = grep /\bTest$$/, values %INC;
+    my ($found) = grep /\bTest$$/, values %INC; 
     ok( $found,                 "   Found $file in \%INC" );
     ok( -e $file,               "   File exists" );
     1 while unlink $file;
     ok(!-e $file,               "       File removed" );
-
+    
 }
 
 {   my $env             = ENV_CPANPLUS_CONFIG;
     local $ENV{$env}    = $$;
     my $ok              = $c->init;
     my $stack           = CPANPLUS::Error->stack_as_string;
-
+        
     ok( $ok,                    "Reran init again" );
     like( $stack, qr/Specifying a config file in your environment/,
                                 "   Warning logged" );
@@ -116,16 +116,16 @@ for my $cat ( $r->ls_accessors ) {
 
 
 {   CPANPLUS::Error->flush;
-
-    {   ### try a bogus method call
+    
+    {   ### try a bogus method call 
         my $x   = $c->flubber('foo');
         my $err = CPANPLUS::Error->stack_as_string;
         is  ($x, undef,         "Bogus method call returns undef");
         like($err, "/flubber/", "   Bogus method call recognized");
     }
-
+    
     CPANPLUS::Error->flush;
-}
+}    
 
 
 # Local variables: