closedir(...) requires a DIR argument.

PR:		5177
Submitted by:	Yen-Shuo Su <yssu@CCCA.NCTU.edu.tw>

databases/msql/scripts/check_old_version

@@ -1,13 +1,13 @@
 #!/usr/bin/perl
 #
-# $Id$
+# $Id: check_old_version,v 1.1 1997/07/14 12:43:38 jfitz Exp $
 #
 
 if( -d "/var/db/msqldb" ) {
 	chdir( "/var/db/pkg" );
 	opendir( DIR, "." );
 	@oldmsql = grep( /^msql-2.0b[1234]$/, readdir( DIR ) );
-	closedir;
+	closedir( DIR );
 	if( @oldmsql ) {
 		if( ! $ENV{OVERWRITE_DB} ) {
 			print <<END;