JehanneOS
/
mksh
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

improved debugging, and chop the input 

discovered while debugging lewellyn’s issue on Interix
This commit is contained in:
tg 2014-01-25 22:45:49 +00:00
parent f7194b3e1a
commit 14e2537d50
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
check.pl
View File

@ -1,8 +1,8 @@
# $MirOS: src/bin/mksh/check.pl,v 1.34 2013/12/15 15:45:31 tg Exp $ # $MirOS: src/bin/mksh/check.pl,v 1.35 2014/01/25 22:45:49 tg Exp $
# $OpenBSD: th,v 1.1 2013/12/02 20:39:44 millert Exp $ # $OpenBSD: th,v 1.1 2013/12/02 20:39:44 millert Exp $
#- #-
# Copyright (c) 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2011, # Copyright (c) 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2011,
# 2012, 2013 # 2012, 2013, 2014
# Thorsten Glaser <tg@mirbsd.org> # Thorsten Glaser <tg@mirbsd.org>
# #
# Provided that these terms and disclaimer and all copyright notices # Provided that these terms and disclaimer and all copyright notices
@ -932,12 +932,13 @@ read_test
%test = (); %test = ();
%cnt = (); %cnt = ();
while (<$in>) { while (<$in>) {
chop;
next if /^\s*$/; next if /^\s*$/;
next if /^ *#/; next if /^ *#/;
last if /^\s*---\s*$/; last if /^\s*---\s*$/;
$start_lineno = $. if !defined $start_lineno; $start_lineno = $. if !defined $start_lineno;
if (!/^([-\w]+):\s*(|\S|\S.*\S)\s*$/) { if (!/^([-\w]+):\s*(|\S|\S.*\S)\s*$/) {
print STDERR "$prog:$file:$.: unrecognised line\n"; print STDERR "$prog:$file:$.: unrecognised line \"$_\"\n";
return undef; return undef;
} }
($field, $val) = ($1, $2); ($field, $val) = ($1, $2);