Merge pull request #442 from mstreuhofer/issue-439

closes #439
gugod · Jan 20, 2015 · 75fca3c · 75fca3c
2 parents 94c0c09 + fdd143a
commit 75fca3c
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/lib/App/perlbrew.pm b/lib/App/perlbrew.pm
@@ -1730,6 +1730,7 @@ sub run_command_use {
 
     if ( !$perl ) {
         my $current = $self->current_perl;
+        $current .= '@' . $self->current_lib if ($self->current_lib);
         if ($current) {
             print "Currently using $current\n";
         } else {
@@ -1747,6 +1748,7 @@ sub run_command_switch {
 
     unless ( $dist ) {
         my $current = $self->current_perl;
+        $current .= '@' . $self->current_lib if ($self->current_lib);
         printf "Currently switched %s\n",
             ( $current ? "to $current" : 'off' );
         return;
@@ -2472,7 +2474,9 @@ perlbrew () {
     case $1 in
         (use)
             if [[ -z "$2" ]] ; then
-                echo "Currently using ${PERLBREW_PERL:-system perl}"
+                echo -n "Currently using ${PERLBREW_PERL:-system perl}"
+                [ -n "$PERLBREW_LIB" ] && echo -n "@$PERLBREW_LIB"
+                echo
             else
                 __perlbrew_set_env "$2"
                 exit_status="$?"