From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 7 Jun 2002 19:05:22 +0000 (+0000)
Subject: h2ph: Tru64 disassembler.h evilness: mixed C and Pascal.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9efe82d34dae3adda0deaa8320ba06f06d46ac83;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;