# New Ticket Created by Richard Hainsworth
# Please include the string: [perl #62012]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=62012 >
See the following (svn revision 34915)
$ perl6
> regex digit { [0..9] }; my $x='abc9';my $y='def';$x~~/<digit>/ and
say 'got digit';$y~~/<!digit>/ and say 'not got digit';
got digit
not got digit
> regex digit { [0..9] }; my $x='abc9';my $y='def';$x~~/<!digit>/ and
say 'got digit';$y~~/<!digit>/ and say 'not got digit';
got digit
not got digit
> regex digit { [0..9] }; my $x='abc9';my $y='def';$x~~/<!digit>/ and
say 'got digit';$y~~/<digit>/ and say 'not got digit';
got digit
>
The assumption was <!digit> is the logical inverse of <digit>
Either way, /<!digit>/ is returning true with and without a digit ( $x
test in first and third lines both give 'got digit').
