#/usr/bin/perl

use warnings;
use strict;

sub eval_string {
    my $string=shift;
    eval $string;
}

my $string1="
sub foo {
    print qq(first definition\n);
}

foo();
";
eval_string($string1);

my $string2="
sub foo {
    print qq(second definition\n);
}

foo();
";
eval_string($string2);
[download]

and the output:

~>perl test.pl
first definition
Subroutine foo redefined at (eval 2) line 2.
second definition
[download]

I know I can get around this by declaring "no warnings 'redefine'" right before my eval, but I feel like that's a second-best solution. If someone did something really stupid and redefined a subroutine used outside the eval, I'd want to know that.

Obviously it would be easier if the strings created anonymous subroutines instead of defining named subroutines, but again, beyond the scope. What I'm wondering is if there's a way to tell eval to not, essentially, "import" any subroutines defined in the execution of the eval. Or, if there is an existing alternative to eval (on CPAN or some such) that does this for me.

If not, I can deal with this. I just thought I'd probe the mind of the community.

Thanks for any help!