| Subject: | Uninitialized value warning in delimited.pm |
The following code:
if ((defined $def) &&
($def =~ /$RE{delimited}{-delim=>'"'}{-esc}{-keep}/)) {
$def = $3;
}
generates the following warnings:
Use of uninitialized value in length at
C:/Perl/site/lib/Regexp/Common/delimited.pm line 17.
Use of uninitialized value in length at
C:/Perl/site/lib/Regexp/Common/delimited.pm line 24.
In the examples, $def = "\"error\""
Looking at the code, shouldn't $escs be initialised to "" so this warning does not occur?