X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FConfig-Any.git;a=blobdiff_plain;f=lib%2FConfig%2FAny%2FPerl.pm;h=28ad0c1b8fb962bc3cd702ca41e16fdb1c5cecc5;hp=6d214f24930639aa27ead556a4484f315d1d7083;hb=3d43e104853baca38ec538ec030b979a7a7b0f4d;hpb=77bb967eff78126f81c2d60485142a6420d09c4b diff --git a/lib/Config/Any/Perl.pm b/lib/Config/Any/Perl.pm index 6d214f2..28ad0c1 100644 --- a/lib/Config/Any/Perl.pm +++ b/lib/Config/Any/Perl.pm @@ -44,8 +44,8 @@ Attempts to load C<$file> as a Perl file. sub load { my $class = shift; my $file = shift; - my $content; - my $exception; + + my( $exception, $content ); { local $@; $content = do $file; @@ -62,7 +62,7 @@ Brian Cassidy Ebricas@cpan.orgE =head1 COPYRIGHT AND LICENSE -Copyright 2006-2009 by Brian Cassidy +Copyright 2006-2016 by Brian Cassidy This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.