same fix for "perlbrew switch"

gugod · Jan 14, 2015 · 69d9438 · 69d9438
1 parent 710a412
commit 69d9438
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/lib/App/perlbrew.pm b/lib/App/perlbrew.pm
@@ -1732,10 +1732,9 @@ 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";
-            print '@', $self->current_lib if ($self->current_lib);
-            print "\n";
+            print "Currently using $current\n";
         } else {
             print "No version in use; defaulting to system\n";
         }
@@ -1751,6 +1750,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;