From 41907bbea2194c60641936de6f743fc19d00dd99 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Tue, 15 Jun 2010 15:12:36 +0000 Subject: [PATCH] Avoid using the new ~~ perl operator in the mangler --- driver/mangler/ghc-asm.lprl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/driver/mangler/ghc-asm.lprl b/driver/mangler/ghc-asm.lprl index a354caa..c81a9ea 100644 --- a/driver/mangler/ghc-asm.lprl +++ b/driver/mangler/ghc-asm.lprl @@ -1446,7 +1446,7 @@ sub mangle_asm { # If this is an entry point with an info table, # eliminate the entry symbol and all directives involving it. if (defined($infochk{$symb}) && $TargetPlatform !~ /^ia64-/m - && $TABLES_NEXT_TO_CODE ~~ "YES") { + && $TABLES_NEXT_TO_CODE eq "YES") { @o = (); foreach $l (split(/\n/m,$c)) { next if $l =~ /^.*$symb_(entry|ret)${T_POST_LBL}/m; @@ -1882,7 +1882,7 @@ sub rev_tbl { local($symb, $tbl, $discard1) = @_; return ($tbl) if ($TargetPlatform =~ /^ia64-/m - || $TABLES_NEXT_TO_CODE ~~ "NO"); + || $TABLES_NEXT_TO_CODE eq "NO"); local($before) = ''; local($label) = ''; -- 1.7.10.4