diff options
Diffstat (limited to 'driver/mangler/ghc-asm.lprl')
| -rw-r--r-- | driver/mangler/ghc-asm.lprl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/driver/mangler/ghc-asm.lprl b/driver/mangler/ghc-asm.lprl index 88766cba88..7c8bd0a8ff 100644 --- a/driver/mangler/ghc-asm.lprl +++ b/driver/mangler/ghc-asm.lprl @@ -542,10 +542,13 @@ print STDERR "T_HDR_vector: $T_HDR_vector\n"; \begin{code} sub mangle_asm { local($in_asmf, $out_asmf) = @_; + local($i, $c); # multi-line regexp matching: - local($*) = 1; - local($i, $c); + # local($*) = 1; + # the above line used to work, but Perl 5.10 removes $*, so we uses an + # equivalent construct that works in Perl 5.6 and later. + BEGIN { require overload; overload::constant( qr => sub { "(?m:$_[1])" } ) } # ia64-specific information for code chunks my $ia64_locnum; |