+++ /dev/null
-use strict;
-use Test::More tests => 1;
-use re::engine::Plugin (
- exec => sub {
- my ($re, $str) = @_;
- my $pattern = $re->pattern;
-
- $$pattern = "eek";
-
- return 1;
- },
-);
-
-my $sv = "ook";
-if ("ook" =~ \$sv) {
- is($sv, "eek");
-}
-