t/00system.t

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 use Test::More tests => 1;
   6
   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;
  12
  13 pass;