Fixed failure when temporary directory is created under ${RUNAWK_TMPD…

…IR}.

Improve regression test for this case.

examples/demo_tmpfile

@@ -6,13 +6,24 @@
 # This demo generates temporary file names and outputs them to stdout
 
 BEGIN {
-	tmpfile1 = tmpfile()
-	tmpfile2 = tmpfile()
-	tmpfile3 = tmpfile()
+	tmpfile1  = tmpfile()
+	tmpfile2  = tmpfile()
+	tmpsubdir = tmpfile()
 
-	print tmpfile1
-	print tmpfile2
-	print tmpfile3
+	print "file 1" > tmpfile1
+
+	print "file 2" > tmpfile2
+
+	system("mkdir " tmpsubdir)
+
+	tmpfile3 = tmpsubdir "/file3"
+	print "file 3" > tmpfile3
+
+	close(tmpfile1)
+	close(tmpfile2)
+	close(tmpfile3)
+
+	system("cat " tmpfile1 " " tmpfile2 " " tmpfile3)
 
 	exitnow(0)
 }

runawk/file_hier.c

@@ -73,7 +73,6 @@ void file_hier (
 			if (0 == lstat (buffer, &sb)){
 				if (S_ISDIR (sb.st_mode)){
 					file_hier (buffer, proc_file, proc_dir);
-					proc_dir (buffer);
 				}else{
 					proc_file (buffer);
 				}

runawk/runawk.c

@@ -127,7 +127,7 @@ static dynarray_t includes;
 static void remove_file (const char *fn)
 {
 	if (unlink (fn)){
-		fprintf (stderr, "rm(\"%s\") failed: %s\n", fn, strerror (errno));
+		fprintf (stderr, "unlink(\"%s\") failed: %s\n", fn, strerror (errno));
 	}
 }
 

test/test.out

@@ -969,9 +969,9 @@ $1=12
 NF=0
 --------------------------------------------------
  ------ args: ../examples/demo_tmpfile
-/tmp/awk.XXXX/0
-/tmp/awk.XXXX/1
-/tmp/awk.XXXX/2
+file 1
+file 2
+file 3
 --------------------------------------------------
  ------ args: ../examples/demo_trim ../examples/demo_trim.in
 trim_l("Van Der   Graaf   Generator  ")="Van Der   Graaf   Generator  "