Permalink
Browse files

Display saved metainfo for installed projects when doing 'panda list'

  • Loading branch information...
1 parent 2ba908f commit d0553e24aa3c63b30093faadbe776708eb8453b5 @japhb japhb committed Aug 16, 2012
Showing with 5 additions and 2 deletions.
  1. +5 −2 bin/panda
View
@@ -17,9 +17,12 @@ sub listprojects($panda, :$installed) {
default { '' }
}
- my $url = $x.metainfo<source-url> // $x.metainfo<repo-url> // 'UNKNOWN';
+ my $meta = $s ?? $es.project-get-saved-meta($x) !! $x.metainfo;
+ my $url = $meta<source-url> // $meta<repo-url> // 'UNKNOWN';
+ my $ver = $meta<version>;
+
printf "%-{$max-name}s %-{$max-ver}s %-27s %s\n",
- $x.name, $x.version, $s, $url;
+ $x.name, $ver, $s, $url;
}
}

0 comments on commit d0553e2

Please sign in to comment.