Re^2: Use of uninitialized value in substitution iterator in variable expansion

$line =~ s/(\$\w+->{\w+})/"$1 or ''"/eeg;
# or
$line =~ s/(\$\w+->{\w+})/eval "$1" or ''/eg;
# or my favorite
$line =~ s/(\$\w+->{\w+})/eval "$1" or 
           print(STDERR "$1 is not defined\n"), ''/eg;
[download]

-- gam3
A picture is worth a thousand words, but takes 200K.

Comment on Re^2: Use of uninitialized value in substitution iterator in variable expansion Download Code