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 warnings 'unsafe' ;
  17 my $a = "ABC123" ;
  18 $a =~ /(?=a)*/ ;
  19 no warnings 'unsafe' ;
  20 $a =~ /(?=a)*/ ;
  21 EXPECT
  22 (?=a)* matches null string many times at - line 4.
  23 ########
  24 # regcomp.c
  25 use warnings 'unsafe' ;
  26 $_ = "" ;
  27 /(?=a)?/;
  28 no warnings 'unsafe' ;
  29 /(?=a)?/;
  30 EXPECT
  31 Strange *+?{} on zero-length expression at - line 4.
  32 ########
  33 # regcomp.c
  34 use warnings 'unsafe' ;
  35 $_ = "" ;
  36 /[:alpha:]/;
  37 /[.bar.]/;
  38 /[=zog=]/;
  39 /[[:alpha:]]/;
  40 /[[.foo.]]/;
  41 /[[=bar=]]/;
  42 /[:zog:]/;
  43 no warnings 'unsafe' ;
  44 /[:alpha:]/;
  45 /[.foo.]/;
  46 /[=bar=]/;
  47 /[[:alpha:]]/;
  48 /[[.foo.]]/;
  49 /[[=bar=]]/;
  50 /[:zog:]/;
  51 /[[:zog:]]/;
  52 EXPECT
  53 Character class syntax [: :] belongs inside character classes at - line 4.
  54 Character class syntax [. .] belongs inside character classes at - line 5.
  55 Character class syntax [. .] is reserved for future extensions at - line 5.
  56 Character class syntax [= =] belongs inside character classes at - line 6.
  57 Character class syntax [= =] is reserved for future extensions at - line 6.
  58 Character class syntax [. .] is reserved for future extensions at - line 8.
  59 Character class syntax [= =] is reserved for future extensions at - line 9.
  60 Character class syntax [: :] belongs inside character classes at - line 10.
  61 Character class [:zog:] unknown at - line 19.