Add documentation and '-h' option to perlbug

[p5sagit/p5-mst-13.2.git] / t / comp / proto.t

diff --git a/t/comp/proto.t b/t/comp/proto.t
old mode 100644 (file)
new mode 100755 (executable)
index 056e622..197ea78
--- a/t/comp/proto.t
+++ b/t/comp/proto.t
@@ -7,24 +7,19 @@
 #
 # It is impossible to test every prototype that can be specified, but
 # we should test as many as we can.
+#
 
-use strict;
-
-my $i = 1;
-
-##
-## Something really weird is happening here. Try changing the order
-## of the next three lines, and try moving them to after the definition
-## of testing, some combinations cause the script to fail while
-## running tests on (&\@)
-##
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = '../lib';
+}
 
-my %hash;
-my @array;
-@_ = qw(a b c d);
+use strict;
 
 print "1..74\n";
 
+my $i = 1;
+
 sub testing (&$) {
     my $p = prototype(shift);
     my $c = shift;
@@ -38,6 +33,9 @@ sub testing (&$) {
     printf "ok %d\n",$i++;
 }
 
+@_ = qw(a b c d);
+my @array;
+my %hash;
 
 ##
 ##