die, when switching to/use a lib that does not exist.

bug ref: #432
gugod · Feb 25, 2015 · 4ac3f9a · 4ac3f9a
1 parent f49a908
commit 4ac3f9a
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/lib/App/perlbrew.pm b/lib/App/perlbrew.pm
@@ -1592,6 +1592,10 @@ sub perlbrew_env {
         unless ($perl_name) {
             die "\nERROR: The installation \"$name\" is unknown.\n\n";
         }
+
+        unless (grep { $_->{lib_name} eq $lib_name } $self->local_libs($perl_name)) {
+            die "\nERROR: The lib name \"$lib_name\" is unknown.\n\n";
+        }
     }
 
     my %env = (