diff options
| author | audreyt@audreyt.org <unknown> | 2007-07-12 05:43:51 +0000 |
|---|---|---|
| committer | audreyt@audreyt.org <unknown> | 2007-07-12 05:43:51 +0000 |
| commit | 8bb7c665517a62163cf4b5a5d48b0d39c5a855c7 (patch) | |
| tree | eb2ab10939453c5ad864fe19540e8a683e73fe02 /driver | |
| parent | 5f9712463fedca549e89404a97f0f88e5cd78dd9 (diff) | |
| download | haskell-8bb7c665517a62163cf4b5a5d48b0d39c5a855c7.tar.gz | |
Revert the $* patch for earlier Perls as it breaks the build. Sorry. :/
Diffstat (limited to 'driver')
| -rw-r--r-- | driver/mangler/ghc-asm.lprl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/driver/mangler/ghc-asm.lprl b/driver/mangler/ghc-asm.lprl index c4a2447433..9a73bd2fe4 100644 --- a/driver/mangler/ghc-asm.lprl +++ b/driver/mangler/ghc-asm.lprl @@ -68,7 +68,9 @@ for the same reason. Advantage: No more ridiculous call sequences. # This used to work, but Perl 5.10 removes support for $*, so we uses an # equivalent construct that works in Perl 5.6 and later. # -BEGIN { require overload; overload::constant( qr => sub { "(?m:$_[1])" } ) } +BEGIN { if ($] >= 5.010) { + require overload; overload::constant( qr => sub { "(?m:$_[1])" } ); +} } ############################################################################ $TargetPlatform = $TARGETPLATFORM; @@ -555,6 +557,7 @@ print STDERR "T_HDR_vector: $T_HDR_vector\n"; sub mangle_asm { local($in_asmf, $out_asmf) = @_; local($i, $c); + local($*) = 1; # ia64-specific information for code chunks my $ia64_locnum; |