Update Devel-PPPort to release 3.60

[perl5.git] / dist / Devel-PPPort / devel / mkppport_fnc.pl

diff --git a/dist/Devel-PPPort/devel/mkppport_fnc.pl b/dist/Devel-PPPort/devel/mkppport_fnc.pl
index e514b5e..f01853f 100644 (file)
--- a/dist/Devel-PPPort/devel/mkppport_fnc.pl
+++ b/dist/Devel-PPPort/devel/mkppport_fnc.pl
@@ -115,10 +115,10 @@ while (<F>) {
     while (defined (my $line = shift @implementation)) {
         #my $type;
         my $var;
-        if ($line =~ /^ __UNDEFINED__ \s+ (\w+) \s /x) {
+        if ($line =~ /^ \s* __UNDEFINED__ \s+ (\w+) \s /x) {
             $var = $1;
         }
-        elsif ($line =~ /^ __NEED_VAR__ \s+ (\w+) \s+ (\w+) /x) {
+        elsif ($line =~ /^ \s* __NEED_VAR__ \s+ (\w+) \s+ (\w+) /x) {
            #$type = $1;     # Another mechanism to create a variable
             $var = $2;
         }
@@ -134,7 +134,7 @@ while (<F>) {
     }
 }
 
-push @out, map { "Amn|void|$_" } @no_parameters;
+push @out, map { "AmnT|void|$_" } @no_parameters;
 
 @out = sort sort_api_lines @out;