Protection against trailing spaces in embed.fnc

p4raw-id: //depot/perl@23568

diff --git a/autodoc.pl b/autodoc.pl
index 5e7b3c2..c106408 100644 (file)
--- 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 0a878d6..30cc3ad 100755 (executable)
--- a/embed.pl
+++ b/embed.pl
@@ -107,6 +107,7 @@ sub walk_table (&@) {
            $_ .= <IN>;
            chomp;
        }
+       s/\s+$//;
        my @args;
        if (/^\s*(#|$)/) {
            @args = $_;