X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=driver%2Fmangler%2Fghc-asm.lprl;fp=driver%2Fmangler%2Fghc-asm.lprl;h=9a73bd2fe4848689897433724018aeaa74aca444;hp=c4a2447433f4089d03ab853ec40379eeda98de51;hb=8bb7c665517a62163cf4b5a5d48b0d39c5a855c7;hpb=5f9712463fedca549e89404a97f0f88e5cd78dd9

diff --git a/driver/mangler/ghc-asm.lprl b/driver/mangler/ghc-asm.lprl
index c4a2447..9a73bd2 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;