[inseparable changes from match from perl-5.003_93 to perl-5.003_94]

[perl5.git] / utils / h2ph.PL

diff --git a/utils/h2ph.PL b/utils/h2ph.PL
index bfd606d..70f9e01 100644 (file)
--- a/utils/h2ph.PL
+++ b/utils/h2ph.PL
@@ -15,6 +15,7 @@ use File::Basename qw(&basename &dirname);
 # This is so that make depend always knows where to find PL derivatives.
 chdir dirname($0);
 $file = basename($0, '.PL');
+$file .= '.com' if $^O eq 'VMS';
 
 open OUT,">$file" or die "Can't create $file: $!";
 
@@ -227,7 +228,7 @@ sub expr {
                $id .= ' ' . $1;
                $isatype{$id} = 1;
            }
-           elsif ($id eq 'unsigned') {
+           elsif ($id eq 'unsigned' || $id eq 'long') {
                s/^\s+(\w+)//;
                $id .= ' ' . $1;
                $isatype{$id} = 1;