Protection against trailing spaces in embed.fnc

p4raw-id: //depot/perl@23568

2 files changed, 2 insertions, 0 deletions

diff --git a/autodoc.pl b/autodoc.pl
index 5e7b3c289d..c10640835d 100644
--- a/autodoc.pl
+++ b/autodoc.pl
@@ -45,6 +45,7 @@ sub walk_table (&@) {
 	    $_ .= <IN>;
 	    chomp;
 	}
+	s/\s+$//;
 	my @args;
 	if (/^\s*(#|$)/) {
 	    @args = $_;
diff --git a/embed.pl b/embed.pl
index 0a878d6ddc..30cc3adbe0 100755
--- a/embed.pl
+++ b/embed.pl
@@ -107,6 +107,7 @@ sub walk_table (&@) {
 	    $_ .= <IN>;
 	    chomp;
 	}
+	s/\s+$//;
 	my @args;
 	if (/^\s*(#|$)/) {
 	    @args = $_;