Do not break stdin when reading a script

darcs-hash:20051019120744-ac50b-67cc9a5c4f6509eb8a012aff32fcd9606933d0ab.gz

1 files changed, 5 insertions, 9 deletions

diff --git a/main.c b/main.c
index dbcff92e..a5f65715 100644
--- a/main.c
+++ b/main.c
@@ -235,7 +235,7 @@ int main( int argc, char **argv )
 			if( my_optind == argc )
 			{
 				reader_push_current_filename( L"(stdin)" );
-				res = reader_read();				
+				res = reader_read( 0 );				
 				reader_pop_current_filename();
 			}
 			else
@@ -244,13 +244,9 @@ int main( int argc, char **argv )
 				char *file = *(argv+1);
 				int i; 
 				string_buffer_t sb;
-
-				if( close( 0 ) )
-				{
-					wperror(L"close");
-					return 1;
-				}
-				if( open(file, O_RDONLY) == -1 )
+				int fd;
+				
+				if( ( fd = open(file, O_RDONLY) ) == -1 )
 				{
 					wperror( L"open" );
 					return 1;
@@ -274,7 +270,7 @@ int main( int argc, char **argv )
 				}
 				
 				reader_push_current_filename( str2wcs( file ) );
-				res = reader_read();
+				res = reader_read( fd );
 
 				if( res )
 				{