From: Rudolph Todd Maceyko <rm55+@pitt.edu>
Date: Tue, 6 Feb 1996 23:16:55 +0000 (-0500)
Subject: NETaa15204 patch problem
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b276c83ddda3f6f594aec5ed6b44c39a9ac218dc;p=p5sagit%2Fp5-mst-13.2.git

NETaa15204 patch problem
---

diff --git a/utils/h2ph.PL b/utils/h2ph.PL
index 720191e..3b882fe 100644
--- a/utils/h2ph.PL
+++ b/utils/h2ph.PL
@@ -187,7 +187,7 @@ sub expr {
     while ($_ ne '') {
 	s/^(\s+)//		&& do {$new .= ' '; next;};
 	s/^(0x[0-9a-fA-F]+)//	&& do {$new .= $1; next;};
-	s/^(\d+)//		&& do {$new .= $1; next;};
+	s/^(\d+)[LlUu]*//	&& do {$new .= $1; next;};
 	s/^("(\\"|[^"])*")//	&& do {$new .= $1; next;};
 	s/^'((\\"|[^"])*)'//	&& do {
 	    if ($curargs{$1}) {
@@ -198,7 +198,7 @@ sub expr {
 	    }
 	    next;
 	};
-	s/^sizeof\s*\(([^)]+\))\)/{$1}/ && do {
+	s/^sizeof\s*\(([^)]+)\)/{$1}/ && do {
 	    $new .= '$sizeof';
 	    next;
 	};
@@ -233,7 +233,7 @@ sub expr {
 		    s/^[\s*]*\)//;
 		}
 		else {
-		    $new .= $id;
+		    $new .= q(').$id.q(');
 		}
 	    }
 	    else {