projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
5f97124
)
Revert the $* patch for earlier Perls as it breaks the build. Sorry. :/
author
audreyt@audreyt.org
<unknown>
Thu, 12 Jul 2007 05:43:51 +0000
(
05:43
+0000)
committer
audreyt@audreyt.org
<unknown>
Thu, 12 Jul 2007 05:43:51 +0000
(
05:43
+0000)
driver/mangler/ghc-asm.lprl
patch
|
blob
|
history
diff --git
a/driver/mangler/ghc-asm.lprl
b/driver/mangler/ghc-asm.lprl
index
c4a2447
..
9a73bd2
100644
(file)
--- 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.
#
# 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;
############################################################################
$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);
sub mangle_asm {
local($in_asmf, $out_asmf) = @_;
local($i, $c);
+ local($*) = 1;
# ia64-specific information for code chunks
my $ia64_locnum;
# ia64-specific information for code chunks
my $ia64_locnum;