# 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;
sub mangle_asm {
local($in_asmf, $out_asmf) = @_;
local($i, $c);
+ local($*) = 1;
# ia64-specific information for code chunks
my $ia64_locnum;