From 85628178fff21f3972681e04baa7a854db2323ab Mon Sep 17 00:00:00 2001
From: Jamie Cameron <jcameron@webmin.com>
Date: Wed, 29 Sep 2021 11:35:43 -0700
Subject: [PATCH] Suppress carriage returns as well
 https://github.com/webmin/webmin/issues/1528

---
 web-lib-funcs.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/web-lib-funcs.pl b/web-lib-funcs.pl
index 0fd357927..c45025b05 100755
--- a/web-lib-funcs.pl
+++ b/web-lib-funcs.pl
@@ -53,7 +53,7 @@ my $split = defined($_[4]) ? $_[4] : "=";
 my $realfile = &translate_filename($_[0]);
 &open_readfile(ARFILE, $_[0]) || return 0;
 while(<ARFILE>) {
-	chomp;
+	s/\r|\n//g;
 	my $hash = index($_, "#");
 	my $eq = index($_, $split);
 	if ($hash != 0 && $eq >= 0) {