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 no warning 'unsafe' ;
  23 $a =~ /(?=a)*/ ;
  24 EXPECT
  25 (?=a)* matches null string many times at - line 4.
  26 ########
  27 # regcomp.c
  28 use warning 'unsafe' ;
  29 $_ = "" ;
  30 /(?=a)?/;
  31 no warning 'unsafe' ;
  32 /(?=a)?/;
  33 EXPECT
  34 Strange *+?{} on zero-length expression at - line 4.
  35 ########
  36 # regcomp.c
  37 use warning 'unsafe' ;
  38 $_ = "" ;
  39 /[a[:xyz:]b]/;
  40 /[a[.xyz.]b]/;
  41 /[a[=xyz=]b]/;
  42 no warning 'unsafe' ;
  43 /[a[:xyz:]b]/;
  44 /[a[.xyz.]b]/;
  45 /[a[=xyz=]b]/;
  46 EXPECT
  47 Character class syntax [: :] is reserved for future extensions at - line 4.
  48 Character class syntax [. .] is reserved for future extensions at - line 5.
  49 Character class syntax [= =] is reserved for future extensions at - line 6.
  50 ########
  51 # regcomp.c
  52 use warning 'unsafe' ;
  53 # use utf8 ; # Note this line should be uncommented when utf8 gets fixed.
  54 $_ = "" ;
  55 /[a[:xyz:]b]/;
  56 /[a[.xyz.]b]/;
  57 /[a[=xyz=]b]/;
  58 no warning 'unsafe' ;
  59 /[a[:xyz:]b]/;
  60 /[a[.xyz.]b]/;
  61 /[a[=xyz=]b]/;
  62 EXPECT
  63 Character class syntax [: :] is reserved for future extensions at - line 5.
  64 Character class syntax [. .] is reserved for future extensions at - line 6.
  65 Character class syntax [= =] is reserved for future extensions at - line 7.