]>
Commit | Line | Data |
---|---|---|
aa016126 | 1 | #!/usr/bin/perl |
67e78ff2 | 2 | use strict; |
aa016126 | 3 | use warnings; |
67e78ff2 | 4 | |
aa016126 | 5 | use Test::More tests => 1; |
67e78ff2 | 6 | |
aa016126 MG |
7 | diag "Running under perl version $] for $^O", (chr(65) eq 'A') ? "\n" : " in a non-ASCII world\n"; |
8 | diag "Win32::BuildNumber ", &Win32::BuildNumber(), "\n" if defined(&Win32::BuildNumber) and defined &Win32::BuildNumber(); | |
9 | diag "MacPerl verison $MacPerl::Version\n" if defined $MacPerl::Version; | |
10 | diag sprintf "Current time local: %s\n", scalar localtime; | |
11 | diag sprintf "Current time GMT: %s\n", scalar gmtime; | |
67e78ff2 | 12 | |
aa016126 | 13 | pass; |