Added a test for bug #77084.

1 files changed, 39 insertions, 0 deletions

diff --git a/t/re/overload.t b/t/re/overload.t
new file mode 100644
index 0000000000..46407aef74
--- /dev/null
+++ b/t/re/overload.t
@@ -0,0 +1,39 @@
+#!./perl
+
+use strict;
+use warnings;
+no  warnings 'syntax';
+
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = '../lib';
+}
+
+sub is;
+sub plan;
+
+require './test.pl';
+plan tests => 3;
+
+{
+    # Bug #77084 points out a corruption problem when scalar //g is used
+    # on overloaded objects.
+
+    my $TAG = "foo:bar";
+    use overload '""' => sub {$TAG};
+
+    my $o = bless [];
+    my ($one) = $o =~ /(.*)/g;
+    is $one, $TAG, "list context //g against overloaded object";
+
+    local our $TODO = "Bug #77084";
+
+    my $r = $o =~ /(.*)/g;
+    is $1, $TAG, "scalar context //g against overloaded object";
+
+    $o =~ /(.*)/g;
+    is $1, $TAG, "void context //g against overloaded object";
+}
+
+
+__END__