h2ph: Tru64 disassembler.h evilness: mixed C and Pascal.

p4raw-id: //depot/perl@17066

diff --git a/utils/h2ph.PL b/utils/h2ph.PL
index 7903996..82dc761 100644 (file)
--- a/utils/h2ph.PL
+++ b/utils/h2ph.PL
@@ -426,6 +426,13 @@ sub next_line
                 $in =~ s/\?\?</{/g;                         # | ??<|  {|
                 $in =~ s/\?\?>/}/g;                         # | ??>|  }|
             }
+           if ($in =~ /^\#ifdef __LANGUAGE_PASCAL__/) {
+                # Tru64 disassembler.h evilness: mixed C and Pascal.
+               while (<IN>) {
+                   last if /^\#endif/; 
+               }
+               next READ;
+           }
             if ($in =~ s/\\$//) {                           # \-newline
                 $out    .= ' ';
                 next READ;