Lots of consting

[p5sagit/p5-mst-13.2.git] / t / op / cproto.t

diff --git a/t/op/cproto.t b/t/op/cproto.t
index 26850c0..d37118e 100644 (file)
--- a/t/op/cproto.t
+++ b/t/op/cproto.t
@@ -1,7 +1,14 @@
 #!./perl
 # Tests to ensure that we don't unexpectedly change prototypes of builtins
 
-use Test::More tests => 234;
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = '../lib';
+}
+
+BEGIN { require './test.pl'; }
+plan tests => 234;
+
 while (<DATA>) {
     chomp;
     my ($keyword, $proto) = split;
@@ -130,7 +137,7 @@ lstat (*)
 lt ($$)
 m undef
 map undef
-mkdir ($;$)
+mkdir (;$$)
 msgctl ($$$)
 msgget ($$)
 msgrcv ($$$$$)
@@ -190,7 +197,7 @@ send (*$$;$)
 setgrent ()
 sethostent ($)
 setnetent ($)
-setpgrp undef
+setpgrp (;$$)
 setpriority ($$$)
 setprotoent ($)
 setpwent ()