From 79d206efef783fbe276b37c14930c8e022482aca Mon Sep 17 00:00:00 2001
From: usa <usa@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Thu, 16 Jun 2005 06:43:00 +0000
Subject: [PATCH] * ruby.c (load_file): '!' is already read. reported by
 gotoyuzo.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@8633 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ChangeLog | 4 ++++
 ruby.c    | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 3f21815a90..0209297f7c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Thu Jun 16 15:41:32 2005  NAKAMURA Usaku  <usa@ruby-lang.org>
+
+	* ruby.c (load_file): '!' is already read. reported by gotoyuzo.
+
 Thu Jun 16 15:09:38 2005  Hirokazu Yamamoto  <ocean@m2.ccsnet.ne.jp>
 
 	* ext/tk/tcltklib.c (ip_rb_threadVwaitCommand): Tcl_Release was missing.
diff --git a/ruby.c b/ruby.c
index f3888c8ae8..81e4b20b63 100644
--- a/ruby.c
+++ b/ruby.c
@@ -931,7 +931,7 @@ load_file(fname, script)
 		    char *path;
 		    char *pend = RSTRING(line)->ptr + RSTRING(line)->len;
 
-		    p = RSTRING(line)->ptr + 1;	/* skip `#!' */
+		    p = RSTRING(line)->ptr;	/* skip `#!' */
 		    if (pend[-1] == '\n') pend--; /* chomp line */
 		    if (pend[-1] == '\r') pend--;
 		    *pend = '\0';