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