t/pragma/warn/regcomp

   1   regcomp.c     AOK
   2
   3   %.*s matches null string many times
   4
   5         $a = "ABC123" ; $a =~ /(?=a)*/'
   6
   7   Strange *+?{} on zero-length expression
   8
   9         /(?=a)?/
  10
  11   Character class syntax [. .] is reserved for future extensions
  12   Character class syntax [= =] is reserved for future extensions
  13
  14 __END__
  15 # regcomp.c
  16 use warning 'unsafe' ;
  17 my $a = "ABC123" ;
  18 $a =~ /(?=a)*/ ;
  19 no warning 'unsafe' ;
  20 $a =~ /(?=a)*/ ;
  21 EXPECT
  22 (?=a)* matches null string many times at - line 4.
  23 ########
  24 # regcomp.c
  25 use warning 'unsafe' ;
  26 $_ = "" ;
  27 /(?=a)?/;
  28 no warning 'unsafe' ;
  29 /(?=a)?/;
  30 EXPECT
  31 Strange *+?{} on zero-length expression at - line 4.
  32 ########
  33 # regcomp.c
  34 use warning 'unsafe' ;
  35 $_ = "" ;
  36 /[:foo:]/;
  37 /[.bar.]/;
  38 /[=zog=]/;
  39 no warning 'unsafe' ;
  40 /[a[:foo:]b]/;
  41 /[a[.bar.]b]/;
  42 /[a[=zog=]b]/;
  43 EXPECT
  44 Character class syntax [: :] belongs inside character classes at - line 4.
  45 Character class syntax [. .] belongs inside character classes at - line 5.
  46 Character class syntax [. .] is reserved for future extensions at - line 5.
  47 Character class syntax [= =] belongs inside character classes at - line 6.
  48 Character class syntax [= =] is reserved for future extensions at - line 6.