t/pragma/warn/regcomp

   1   regcomp.c     AOK
   2
   3   Strange *+?{} on zero-length expression       [S_study_chunk]
   4         /(?=a)?/
   5
   6   %.*s matches null string many times           [S_regpiece]
   7         $a = "ABC123" ; $a =~ /(?=a)*/'
   8
   9   /%.127s/: Unrecognized escape \\%c passed through"    [S_regatom]
  10         /\m/
  11
  12   Character class syntax [. .] is reserved for future extensions [S_regpposixcc]
  13
  14   Character class syntax [= =] is reserved for future extensions [S_checkposixcc]
  15
  16   Character class syntax [%c %c] belongs inside character classes [S_checkposixcc]
  17
  18
  19
  20
  21 __END__
  22 # regcomp.c [S_regpiece]
  23 use warnings 'unsafe' ;
  24 my $a = "ABC123" ;
  25 $a =~ /(?=a)*/ ;
  26 no warnings 'unsafe' ;
  27 $a =~ /(?=a)*/ ;
  28 EXPECT
  29 (?=a)* matches null string many times at - line 4.
  30 ########
  31 # regcomp.c [S_study_chunk]
  32 use warnings 'unsafe' ;
  33 $_ = "" ;
  34 /(?=a)?/;
  35 no warnings 'unsafe' ;
  36 /(?=a)?/;
  37 EXPECT
  38 Strange *+?{} on zero-length expression at - line 4.
  39 ########
  40 # regcomp.c [S_regatom]
  41 use warnings 'unsafe' ;
  42 $a =~ /\m/ ;
  43 no warnings 'unsafe' ;
  44 EXPECT
  45 Unrecognized escape \m passed through at - line 3.
  46 ########
  47 # regcomp.c [S_regpposixcc S_checkposixcc]
  48 use warnings 'unsafe' ;
  49 $_ = "" ;
  50 /[:alpha:]/;
  51 /[.bar.]/;
  52 /[=zog=]/;
  53 /[[:alpha:]]/;
  54 /[[.foo.]]/;
  55 /[[=bar=]]/;
  56 /[:zog:]/;
  57 no warnings 'unsafe' ;
  58 /[:alpha:]/;
  59 /[.foo.]/;
  60 /[=bar=]/;
  61 /[[:alpha:]]/;
  62 /[[.foo.]]/;
  63 /[[=bar=]]/;
  64 /[:zog:]/;
  65 /[[:zog:]]/;
  66 EXPECT
  67 Character class syntax [: :] belongs inside character classes at - line 4.
  68 Character class syntax [. .] belongs inside character classes at - line 5.
  69 Character class syntax [. .] is reserved for future extensions at - line 5.
  70 Character class syntax [= =] belongs inside character classes at - line 6.
  71 Character class syntax [= =] is reserved for future extensions at - line 6.
  72 Character class syntax [. .] is reserved for future extensions at - line 8.
  73 Character class syntax [= =] is reserved for future extensions at - line 9.
  74 Character class syntax [: :] belongs inside character classes at - line 10.
  75 Character class [:zog:] unknown at - line 19.