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("Copyright (C) 2003-2008 Richard Kettlewell et al\n");
29 output("License GPLv3+: GNU GPL version 3 or later:\n");
30 output(" http://www.gnu.org/licenses/gpl-3.0.html\n");
31 output("This is free software: you are free to change and redistribute it.\n");
32 output("There is NO WARRANTY, to the extent permitted by law.\n");
33 output("WARNING: -Werror not used in this build\n") if $cc !~ /-Werror/;
35 close STDOUT or die "$0: stdout: $!\n";