1 files changed, 6 insertions, 0 deletions
diff --git a/lib/perl5db/t/lsub-n b/lib/perl5db/t/lsub-n
new file mode 100644
index 0000000000..83257b47e2
--- /dev/null
+++ b/lib/perl5db/t/lsub-n
@@ -0,0 +1,6 @@
+sub foo : lvalue {
+    $x+=10;
+}
+$x++;
+foo();
+$x+=100;