#!./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;
closedir (*)
cmp unknown
connect (*$)
-continue unknown
+continue ()
cos (;$)
crypt ($$)
dbmclose (\%)
lt ($$)
m undef
map undef
-mkdir ($;$)
+mkdir (;$$)
msgctl ($$$)
msgget ($$)
msgrcv ($$$$$)
setgrent ()
sethostent ($)
setnetent ($)
-setpgrp undef
+setpgrp (;$$)
setpriority ($$$)
setprotoent ($)
setpwent ()