2 files changed, 5 insertions, 8 deletions
diff --git a/lib/Example/Foobar.pm b/lib/Example/Foobar.pm
index 3ba4824..05ec036 100644
--- a/lib/Example/Foobar.pm
+++ b/lib/Example/Foobar.pm
@@ -57,11 +57,7 @@ sub new {
     my $modpath = $modname;
     $modpath =~ s{::}{/}g;
     $modpath .= '.pm';
-    my $cmd;
-    eval {
-	require $modpath;
-	$cmd = $modname->new(@args);
-    };
+    my $cmd = eval { require $modpath; $modname->new(@args) };
     if ($@) {
 	if ($@ =~ /Can't locate $modpath/) {
 	    die "unknown command: $command\n"
diff --git a/lib/Example/Foobar/list.pm b/lib/Example/Foobar/list.pm
index 1096c03..f4b02a8 100644
--- a/lib/Example/Foobar/list.pm
+++ b/lib/Example/Foobar/list.pm
@@ -52,12 +52,13 @@ sub run {
     foreach my $mod (sort
 		     map {
 			 my $name = basename($_);
-			 if (exists($INC{File::Spec->catfile($self->classpath,
-							     $name)})) {
+			 my $filename = File::Spec->catfile($self->classpath,
+							    $name);
+			 if (exists($INC{$filename})) {
 			     ()
 			 } else {
 			     eval {
-				 require $_;
+				 require $filename;
 			     };
 		             $name =~ s/\.pm$//;
                              $@ ? () : [$name, $_];