[perl #16296] [PATCH] warnings in lib/Parrot/Test.pm

[via RT]

# New Ticket Created by  Leopold Toetsch 
# Please include the string:  [perl #16296]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=16296 >


Hi,

this patch removes ugly warnings for perl6's »make test«.
Please apply.

leo


-- attachment  1 ------------------------------------------------------
url: http://rt.perl.org/rt2/attach/34376/28103/3ec218/Test.pm.diff


--- Test.pm     Thu Aug 15 09:48:18 2002
+++ /home/lt/src/parrot-007/lib/Parrot/Test.pm  Mon Aug 19 10:30:23 2002
@@ -84,9 +84,9 @@
 }
 
 # Map the Parrot::Test function to a Test::Builder method.
-my %Test_Map = ( output_is   => 'is_eq', 
-                 output_isnt => 'isnt_eq', 
-                 output_like => 'like' 
+my %Test_Map = ( output_is   => 'is_eq',
+                 output_isnt => 'isnt_eq',
+                 output_like => 'like'
                );
 
 my $count = 0;
@@ -138,15 +138,15 @@
     }
   }
 
-  my %C_Test_Map = ( c_output_is   => 'is_eq', 
-                     c_output_isnt => 'isnt_eq', 
-                     c_output_like => 'like' 
+  my %C_Test_Map = ( c_output_is   => 'is_eq',
+                     c_output_isnt => 'isnt_eq',
+                     c_output_like => 'like'
                    );
 
   foreach my $func ( keys %C_Test_Map ) {
     no strict 'refs';
 
-    *{'Parrot::Test::'.$func} = sub ($$;$) {
+    *{$package.'::'.$func} = sub ($$;$) {
       my( $source, $output, $desc ) = @_;
 
       ++$count;