This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Protection against trailing spaces in embed.fnc
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 30 Nov 2004 13:02:16 +0000 (13:02 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 30 Nov 2004 13:02:16 +0000 (13:02 +0000)
p4raw-id: //depot/perl@23568

autodoc.pl
embed.pl

index 5e7b3c2..c106408 100644 (file)
@@ -45,6 +45,7 @@ sub walk_table (&@) {
            $_ .= <IN>;
            chomp;
        }
+       s/\s+$//;
        my @args;
        if (/^\s*(#|$)/) {
            @args = $_;
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 = $_;