Merge pull request #789 from zoffixznet/fix-RT128019-warning-on-S-rep…

…lacement

Fix RT#128019: LTA warning on smartmatch against S///

src/Perl6/Actions.nqp

@@ -6313,7 +6313,7 @@ class Perl6::Actions is HLL::Actions does STDActions {
 
     sub check_smartmatch($/,$pat) {
         if nqp::can($pat,'ann') && $pat.ann('is_S') {
-            $/.PRECURSOR.worry('Smartmatch with S/// can never succeed because the string it returns will fail to match. You can use given instead of ~~.');
+            $/.PRECURSOR.worry('Smartmatch with S/// is not useful. You can use given instead: S/// given $foo');
         }
 
         if $pat ~~ QAST::WVal && istype($pat.returns, $*W.find_symbol(['Bool'])) && nqp::isconcrete($pat.value) {