Subject: | Lots of little issues, some important. |
Date: | Wed, 13 Nov 2013 20:01:07 +0000 |
To: | "bug-Tie-File [...] rt.cpan.org" <bug-Tie-File [...] rt.cpan.org> |
From: | "Mestnik, Michael J - Eagan, MN - Contractor" <Michael.J.Mestnik [...] usps.gov> |
Variable spelling error line 759.
Lots of scoping issues(my used instead of our, ?local used at all?).
Typecast issues, * used instead of @ in my.
$DIAGNOSTIC <--- This can't work the way you intend(can it?), A variable defined with a value that is cleared when that first copy goes out of scope? Try using sub a{return do {$Tie::File::DIAGNOSTIC=1;... }continue{$Tie::File::DIAGNOSTIC=0}}; "elsewhere"; die if($Tie::File::DIAGNOSTIC);
Others? Try testing with strict/warning in each package.
Cheers.