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 EXPECT
  20 (?=a)* matches null string many times at - line 4.
  21 ########
  22 # regcomp.c
  23 use warning 'unsafe' ;
  24 $_ = "" ;
  25 /(?=a)?/;
  26 EXPECT
  27 Strange *+?{} on zero-length expression at - line 4.
  28 ########
  29 # regcomp.c
  30 use warning 'unsafe' ;
  31 $_ = "" ;
  32 /[a[.xyz.]b]/;
  33 /[a[=xyz=]b]/;
  34 EXPECT
  35 Character class syntax [. .] is reserved for future extensions at - line 4.
  36 Character class syntax [= =] is reserved for future extensions at - line 5.
  37 ########
  38 # regcomp.c
  39 use warning 'unsafe' ;
  40 $_ = "" ;
  41 /[:foo:]/;
  42 /[.bar.]/;
  43 /[=zog=]/;
  44 EXPECT
  45 Character class syntax [: :] belongs inside character classes at - line 4.
  46 Character class syntax [. .] belongs inside character classes at - line 5.
  47 Character class syntax [. .] is reserved for future extensions at - line 5.
  48 Character class syntax [= =] belongs inside character classes at - line 6.
  49 Character class syntax [= =] is reserved for future extensions at - line 6.