Skip to content

Commit

Permalink
Show System::Info information with -V if available
Browse files Browse the repository at this point in the history
If System::Info is installed, then show that info in the -V output
as well.
  • Loading branch information
lizmat committed May 14, 2017
1 parent c96727a commit 5feb390
Showing 1 changed file with 8 additions and 0 deletions.
8 changes: 8 additions & 0 deletions src/core/Compiler.pm
Original file line number Diff line number Diff line change
Expand Up @@ -56,6 +56,14 @@ class Compiler does Systemic {
for <arch archname auth bits desc
hardware name release signature version>;

try {
require System::Info;

my $sysinfo = System::Info.new;
nqp::push_s($items,"sysinfo::{ .name }={ $sysinfo.$_ // '' }")
for $sysinfo.^methods.grep: *.name ne 'new';
}

my str $string = nqp::join("\n",Rakudo::Sorting.MERGESORT-str($items));

if $say {
Expand Down

0 comments on commit 5feb390

Please sign in to comment.