fix checking if an input file is a directory and reclaim a few tests

parrot · Feb 20, 2011 · 8d4a69c · 8d4a69c
1 parent 7cf75f0
commit 8d4a69c
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/compilers/imcc/imcc.l b/compilers/imcc/imcc.l
@@ -1320,9 +1320,9 @@ determine_input_file_type(ARGMOD(imc_info_t * imcc), ARGIN(STRING *sourcefile))
         }
     }
     else {
-        /*if (Parrot_stat_info_intval(imcc->interp, sourcefile, STAT_ISDIR))
+        if (Parrot_file_stat_intval(imcc->interp, sourcefile, STAT_ISDIR))
             Parrot_ex_throw_from_c_args(imcc->interp, NULL, EXCEPTION_EXTERNAL_ERROR,
-                "imcc_compile_file: '%Ss' is a directory\n", sourcefile);*/
+                "imcc_compile_file: '%Ss' is a directory\n", sourcefile);
 
         handle = PIO_OPEN(imcc->interp, sourcefile, PIO_F_READ);
         if (handle == PIO_INVALID_HANDLE)

diff --git a/compilers/imcc/imclexer.c b/compilers/imcc/imclexer.c
@@ -5504,9 +5504,9 @@ determine_input_file_type(ARGMOD(imc_info_t * imcc), ARGIN(STRING *sourcefile))
         }
     }
     else {
-        /*if (Parrot_stat_info_intval(imcc->interp, sourcefile, STAT_ISDIR))
+        if (Parrot_file_stat_intval(imcc->interp, sourcefile, STAT_ISDIR))
             Parrot_ex_throw_from_c_args(imcc->interp, NULL, EXCEPTION_EXTERNAL_ERROR,
-                "imcc_compile_file: '%Ss' is a directory\n", sourcefile);*/
+                "imcc_compile_file: '%Ss' is a directory\n", sourcefile);
 
         handle = PIO_OPEN(imcc->interp, sourcefile, PIO_F_READ);
         if (handle == PIO_INVALID_HANDLE)