xref: /openbsd-src/gnu/usr.bin/perl/lib/perl5db/t/lvalue-bug (revision 43003dfe3ad45d1698bed8a37f2b0f5b14f20d4f)
1*43003dfeSmillert#!/usr/bin/perl
2*43003dfeSmillert#
3*43003dfeSmillert# This code is used by lib/perl5db.t !!!
4*43003dfeSmillert#
5*43003dfeSmillert
6*43003dfeSmillertmy $i;
7*43003dfeSmillertsub foo () : lvalue { $i }
8*43003dfeSmillertfoo = 1;
9*43003dfeSmillertprint defined foo ? "foo is defined" : "foo is still undef", "\n";
10