--- perl/trunk/test/s/mount.t	2005/01/07 23:38:41	9
+++ perl/trunk/test/s/mount.t	2005/03/20 00:36:05	10
@@ -9,6 +9,8 @@
 	#close(STDIN);
 	close(STDOUT);
 	close(STDERR);
+	mkdir $_point;
+	mkdir $_real;
 	`echo $$ >test/s/mounted.pid`;
 	exec("perl $_loop $_point");
 	exit(1);