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         /[a[:xyz:]b]/
  13
  14   Character class syntax [. .] is reserved for future extensions
  15   Character class syntax [= =] is reserved for future extensions
  16
  17 __END__
  18 # regcomp.c
  19 use warning 'unsafe' ;
  20 my $a = "ABC123" ;
  21 $a =~ /(?=a)*/ ;
  22 EXPECT
  23 (?=a)* matches null string many times at - line 4.
  24 ########
  25 # regcomp.c
  26 use warning 'unsafe' ;
  27 $_ = "" ;
  28 /(?=a)?/;
  29 EXPECT
  30 Strange *+?{} on zero-length expression at - line 4.
  31 ########
  32 # regcomp.c
  33 use warning 'unsafe' ;
  34 $_ = "" ;
  35 /[a[:xyz:]b]/;
  36 /[a[.xyz.]b]/;
  37 /[a[=xyz=]b]/;
  38 EXPECT
  39 Character class syntax [: :] is reserved for future extensions at - line 4.
  40 Character class syntax [. .] is reserved for future extensions at - line 5.
  41 Character class syntax [= =] is reserved for future extensions at - line 6.
  42 ########
  43 # regcomp.c
  44 use warning 'unsafe' ;
  45 # use utf8 ; # Note this line should be uncommented when utf8 gets fixed.
  46 $_ = "" ;
  47 /[a[:xyz:]b]/;
  48 /[a[.xyz.]b]/;
  49 /[a[=xyz=]b]/;
  50 EXPECT
  51 Character class syntax [: :] is reserved for future extensions at - line 5.
  52 Character class syntax [. .] is reserved for future extensions at - line 6.
  53 Character class syntax [= =] is reserved for future extensions at - line 7.