Avoid using the new ~~ perl operator in the mangler

diff --git a/driver/mangler/ghc-asm.lprl b/driver/mangler/ghc-asm.lprl
index a354caa..c81a9ea 100644 (file)
--- 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) = '';