4 print @_ or die "$0: stdout: $!\n";
6 my @csv = `../config.status --version`;
13 if(/disorder config\.status (\S+)/) {
16 if(/with options \"(.*)\"/) {
23 my @cv = `$cc --version`;
26 die "no version found\n" unless defined $version;
27 output
("%s (DisOrder) $version\n");
28 output
(" configure options: $options\n") if defined $options;
29 output
(" compiler: $cc\n") if defined $compiler;
30 output
(" version: $compiler\n") if defined $cc;
31 output
("Copyright (C) 2003-2008 Richard Kettlewell et al\n");
32 output
("License GPLv2+: GNU GPL version 2 or later:\n");
33 output
(" http://www.gnu.org/licenses/old-licenses/gpl-2.0.html\n");
34 output
("This is free software: you are free to change and redistribute it.\n");
35 output
("There is NO WARRANTY, to the extent permitted by law.\n");
37 close STDOUT
or die "$0: stdout: $!\n";