shebang.req: don't read the whole script

$ (echo '#!/usr/bin/perl'; cat /dev/zero) |sed -n '1s|^#![[:space:]]*/|/|p;q' /usr/bin/perl $
2008-04-01 15:30:53 +04:00 · 2008-04-01 15:30:53 +04:00 · 47bd8eff65
commit 47bd8eff65
parent b81a3b6b75
1 changed files with 1 additions and 1 deletions
--- a/scripts/shebang.req.in
+++ b/scripts/shebang.req.in
@ -6,7 +6,7 @@
 ShebangReq()
 {
 	local f="$1" line=; shift
-	line=$(sed -n '1s|^#![[:space:]]*/|/|p' "$f")
+	line=$(sed -n '1s|^#![[:space:]]*/|/|p;q' "$f")
 	[ -n "$line" ] || return 0
 	set -- $line
 	case "$#,$1" in