- {
- #hide our variables within this block
- my($filename,$mtime,$package,$sub);
- eval $eval;
- }
-
- if ($@) {
- print "\$\@ = $@";
- $errstr = $@;
- delete_package($package);
- } else {
- #cache it unless we're cleaning out each time
- $Cache{$package}{'mtime'} = $mtime;
- }