list command shows description

3ae2488c · claes · a145542c · 3ae2488c
Commit 3ae2488c authored Mar 09, 2006 by claes
Show whitespace changes
Inline Side-by-side

Showing with 4 additions and 1 deletion

src/tools/pwre/src/os_linux/pwre.pl src/tools/pwre/src/os_linux/pwre.pl +4 -1

No files found.
--- a/src/tools/pwre/src/os_linux/pwre.pl
+++ b/src/tools/pwre/src/os_linux/pwre.pl
@@ -598,7 +598,10 @@ sub list ()
  print("-- Defined environments:\n");
  foreach $env (sort keys (%envdb)) {
-    printf("   %s\n", $env);
+      $varstr = $envdb{$env};
+      ($sroot, $vmsinc, $broot, $btype, $os, $hw, $desc)  =  split(/:/, $varstr);
+      @vars = ($sroot, $vmsinc, $broot, $btype, $os, $hw, $desc);
+    printf("   %s			%s\n", $env, $desc);
  }
  print("--\n");