$ perl5010 -le'
   $re = qr/foo$/;
   print $re;
   print "foo\nbar\n" =~ /$re/m ?1:0
'
(?-xism:foo$)   # -m: Turn /m off.
0

##</code><code>##

$ perl5008009 -le'
   $re = qr/foo$/;
   print $re;
   print "foo\nbar\n" =~ /$re/m ?1:0
'
(?-xism:foo$)
1               # Matched as if /m was on for the subpattern.

##</code><code>##

$ perl5008009 -le'
   $re = qr/foo$/;
   print $re;
   local $* = 1;
   print "foo\nbar\n" =~ /$re/ ?1:0
'
(?-xism:foo$)
1