diff options
| author | Rudolph Todd Maceyko <rm55+@pitt.edu> | 1996-02-06 18:16:55 -0500 |
|---|---|---|
| committer | Andy Dougherty <doughera@lafcol.lafayette.edu> | 1996-02-06 18:16:55 -0500 |
| commit | b276c83ddda3f6f594aec5ed6b44c39a9ac218dc (patch) | |
| tree | 18c9a39dea7e2e813851e7e2be6e08fabb6a80f1 | |
| parent | f0c5b2233f4e183c2c3a5c4854bb979b857edc3b (diff) | |
| download | perl-b276c83ddda3f6f594aec5ed6b44c39a9ac218dc.tar.gz | |
NETaa15204 patch problem
| -rw-r--r-- | utils/h2ph.PL | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/utils/h2ph.PL b/utils/h2ph.PL index 720191ec1d..3b882fee0b 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 { |