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;fp=lib%2FConfig%2FAny%2FPerl.pm;h=625839262e41c60e78686ab976721cd28627cee4;hp=6d214f24930639aa27ead556a4484f315d1d7083;hb=f07b7a174347e4d35f8b80f3f68024aa974e1343;hpb=77bb967eff78126f81c2d60485142a6420d09c4b diff --git a/lib/Config/Any/Perl.pm b/lib/Config/Any/Perl.pm index 6d214f2..6258392 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-2010 by Brian Cassidy This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.