diff options
| author | Tony Cook <tony@develop-help.com> | 2019-02-28 11:53:19 +1100 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2019-03-08 10:36:13 +1100 |
| commit | bf3e41ff5d42bd65e92e06ce1b1b8f24064a178a (patch) | |
| tree | 3e41166fd7c6c944d4cd236674a4599f8d038000 /lib/perl5db | |
| parent | 500ca7737cc8454aecbe706ae402a2d77cae1b25 (diff) | |
| download | perl-bf3e41ff5d42bd65e92e06ce1b1b8f24064a178a.tar.gz | |
(perl #124203) fix a similar problem with DB::lsub
Diffstat (limited to 'lib/perl5db')
| -rw-r--r-- | lib/perl5db/t/rt-124203b | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/lib/perl5db/t/rt-124203b b/lib/perl5db/t/rt-124203b new file mode 100644 index 0000000000..a599621566 --- /dev/null +++ b/lib/perl5db/t/rt-124203b @@ -0,0 +1,13 @@ +use threads; +print "PID $$\n"; +my $x; +sub sub1 { + print("In the thread\n"); +} +sub foo:lvalue { + my $thr = threads->create(\&sub1); + $thr->join; + $x; +} +foo() = "One"; +print "Finished $x\n"; |