t/lib/warnings/regcomp

   1   regcomp.c     These tests have been moved to t/re/reg_mesg.t
   2                 except for those that explicitly test line numbers
   3                 and those that don't have a <-- HERE in them.
   4
   5 __END__
   6 use warnings 'regexp';
   7 $r=qr/(??{ q"\\b+" })/;
   8 "a" =~ /a$r/; # warning should come from this line
   9 EXPECT
  10 \b+ matches null string many times in regex; marked by <-- HERE in m/\b+ <-- HERE / at - line 3.
  11 ########
  12 # regcomp.c
  13 use warnings 'digit' ;
  14 my $a = qr/\o{1238456}\x{100}/;
  15 my $a = qr/[\o{6548321}]\x{100}/;
  16 no warnings 'digit' ;
  17 my $a = qr/\o{1238456}\x{100}/;
  18 my $a = qr/[\o{6548321}]\x{100}/;
  19 EXPECT
  20 Non-octal character '8'.  Resolved as "\o{123}" at - line 3.
  21 Non-octal character '8'.  Resolved as "\o{654}" at - line 4.
  22 ########
  23 # regcomp.c.c
  24 use warnings;
  25 $a = qr/\c,/;
  26 $a = qr/[\c,]/;
  27 no warnings 'syntax';
  28 $a = qr/\c,/;
  29 $a = qr/[\c,]/;
  30 EXPECT
  31 "\c," is more clearly written simply as "l" at - line 3.
  32 "\c," is more clearly written simply as "l" at - line 4.