diff --git a/‎ldebug.c‎
Lines changed: 3 additions & 1 deletion b/‎ldebug.c‎
Lines changed: 3 additions & 1 deletion
diff --git a/‎testes/db.lua‎
Lines changed: 18 additions & 1 deletion b/‎testes/db.lua‎
Lines changed: 18 additions & 1 deletion
@@ -783,11 +783,13 @@ l_noret luaG_runerror (lua_State *L, const char *fmt, ...) {
 ** previous instruction 'oldpc'.
 */
 static int changedline (const Proto *p, int oldpc, int newpc) {
+  if (p->lineinfo == NULL)  /* no debug information? */
+    return 0;
   while (oldpc++ < newpc) {
     if (p->lineinfo[oldpc] != 0)
       return (luaG_getfuncline(p, oldpc - 1) != luaG_getfuncline(p, newpc));
   }
-  return 0;  /* no line changes in the way */
+  return 0;  /* no line changes between positions */
 }
 
 
 
@@ -884,7 +884,7 @@ end
 
 
 print("testing debug functions on chunk without debug info")
-prog = [[-- program to be loaded without debug information
+prog = [[-- program to be loaded without debug information (strip)
 local debug = require'debug'
 local a = 12  -- a local variable
 
@@ -927,6 +927,23 @@ local f = assert(load(string.dump(load(prog), true)))
 
 assert(f() == 13)
 
+do   -- bug in 5.4.0: line hooks in stripped code
+  local function foo ()
+    local a = 1
+    local b = 2
+    return b
+  end
+
+  local s = load(string.dump(foo, true))
+  local line = true
+  debug.sethook(function (e, l)
+    assert(e == "line")
+    line = l
+  end, "l")
+  assert(s() == 2); debug.sethook(nil)
+  assert(line == nil)  -- hook called withoug debug info for 1st instruction
+end
+
 do   -- tests for 'source' in binary dumps
   local prog = [[
     return function (x)
Original file line number	Diff line number	Diff line change
`@@ -783,11 +783,13 @@ l_noret luaG_runerror (lua_State L, const char fmt, ...) {`
`783`	`783`	`** previous instruction 'oldpc'.`
`784`	`784`	`*/`
`785`	`785`	`static int changedline (const Proto *p, int oldpc, int newpc) {`
	`786`	`+ if (p->lineinfo == NULL) /* no debug information? */`
	`787`	`+ return 0;`
`786`	`788`	`while (oldpc++ < newpc) {`
`787`	`789`	`if (p->lineinfo[oldpc] != 0)`
`788`	`790`	`return (luaG_getfuncline(p, oldpc - 1) != luaG_getfuncline(p, newpc));`
`789`	`791`	`}`
`790`		`- return 0; /* no line changes in the way */`
	`792`	`+ return 0; /* no line changes between positions */`
`791`	`793`	`}`
`792`	`794`
`793`	`795`