xref: /openbsd-src/gnu/usr.bin/perl/lib/perl5db/t/lsub-n (revision 6fb12b7054efc6b436584db6cef9c2f85c0d7e27)
1sub foo : lvalue {
2    $x+=10;
3}
4$x++;
5foo();
6$x+=100;
7