Set up gcc environment - 3.3 sub leap_seconds { my $val = shift; if ($val < 723727) { if ($val < 721354) { if ($val < 720259) { if ($val < 719893) { return 9; } else { if ($val < 720075) { return 10; } else { return 11; } } } else { if ($val < 720624) { return 12; } else { if ($val < 720989) { return 13; } else { return 14; } } } } else { if ($val < 722450) { if ($val < 721720) { return 15; } else { if ($val < 722085) { return 16; } else { return 17; } } } else { if ($val < 722815) { return 18; } else { if ($val < 723362) { return 19; } else { return 20; } } } } } else { if ($val < 727380) { if ($val < 725737) { if ($val < 724092) { return 21; } else { if ($val < 724823) { return 22; } else { return 23; } } } else { if ($val < 726468) { return 24; } else { if ($val < 726833) { return 25; } else { return 26; } } } } else { if ($val < 728659) { if ($val < 727745) { return 27; } else { if ($val < 728110) { return 28; } else { return 29; } } } else { if ($val < 729206) { return 30; } else { if ($val < 729755) { return 31; } else { return 32; } } } } } } Checking if your kit is complete... Looks good Writing Makefile for DateTime::TimeZone::LMT cp lib/DateTime/TimeZone/LMT.pm blib/lib/DateTime/TimeZone/LMT.pm Manifying blib/man3/DateTime::TimeZone::LMT.3 PERL_DL_NONLAZY=1 /export/home/cpanrun/build/5.10.0/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(1, 'blib/lib', 'blib/arch')" t/*.t t/00Pod.........1..1 ok 1 - Pod tests OK ok t/01load........1..1 ok 1 - use DateTime::TimeZone; ok t/02basic.......sub leap_seconds { my $val = shift; if ($val < 723727) { if ($val < 721354) { if ($val < 720259) { if ($val < 719893) { return 9; } else { if ($val < 720075) { return 10; } else { return 11; } } } else { if ($val < 720624) { return 12; } else { if ($val < 720989) { return 13; } else { return 14; } } } } else { if ($val < 722450) { if ($val < 721720) { return 15; } else { if ($val < 722085) { return 16; } else { return 17; } } } else { if ($val < 722815) { return 18; } else { if ($val < 723362) { return 19; } else { return 20; } } } } } else { if ($val < 727380) { if ($val < 725737) { if ($val < 724092) { return 21; } else { if ($val < 724823) { return 22; } else { return 23; } } } else { if ($val < 726468) { return 24; } else { if ($val < 726833) { return 25; } else { return 26; } } } } else { if ($val < 728659) { if ($val < 727745) { return 27; } else { if ($val < 728110) { return 28; } else { return 29; } } } else { if ($val < 729206) { return 30; } else { if ($val < 729755) { return 31; } else { return 32; } } } } } } 1..52 ok 1 - The object isa DateTime::TimeZone::LMT ok 2 - Longitude is remembered ok 3 - should not be floating ok 4 - should not be UTC ok 5 - The object isa DateTime::TimeZone::LMT ok 6 - Longitude is remembered ok 7 - should not be floating ok 8 - should not be UTC ok 9 - The object isa DateTime::TimeZone::LMT ok 10 - Longitude is remembered ok 11 - should not be floating ok 12 - should not be UTC ok 13 - The object isa DateTime::TimeZone::LMT ok 14 - Longitude is remembered ok 15 - should not be floating ok 16 - should not be UTC ok 17 - The object isa DateTime::TimeZone::LMT ok 18 - Longitude is remembered ok 19 - should not be floating ok 20 - should not be UTC ok 21 - The object isa DateTime::TimeZone::LMT ok 22 - Longitude is remembered ok 23 - should not be floating ok 24 - should not be UTC ok 25 - The object isa DateTime::TimeZone::LMT ok 26 - Longitude is remembered ok 27 - should not be floating ok 28 - should not be UTC ok 29 - The object isa DateTime::TimeZone::LMT ok 30 - Longitude is remembered ok 31 - should not be floating ok 32 - should not be UTC ok 33 - The object isa DateTime::TimeZone::LMT ok 34 - Longitude is remembered ok 35 - should not be floating ok 36 - should not be UTC ok 37 - The object isa DateTime::TimeZone::LMT ok 38 - Longitude is remembered ok 39 - should not be floating ok 40 - should not be UTC ok 41 - The object isa DateTime::TimeZone::LMT ok 42 - Longitude is remembered ok 43 - should not be floating ok 44 - should not be UTC ok 45 - The object isa DateTime::TimeZone::LMT ok 46 - Longitude is remembered ok 47 - should not be floating ok 48 - should not be UTC ok 49 - The object isa DateTime::TimeZone::LMT ok 50 - Longitude is remembered ok 51 - should not be floating ok 52 - should not be UTC ok t/03datetime....sub leap_seconds { my $val = shift; if ($val < 723727) { if ($val < 721354) { if ($val < 720259) { if ($val < 719893) { return 9; } else { if ($val < 720075) { return 10; } else { return 11; } } } else { if ($val < 720624) { return 12; } else { if ($val < 720989) { return 13; } else { return 14; } } } } else { if ($val < 722450) { if ($val < 721720) { return 15; } else { if ($val < 722085) { return 16; } else { return 17; } } } else { if ($val < 722815) { return 18; } else { if ($val < 723362) { return 19; } else { return 20; } } } } } else { if ($val < 727380) { if ($val < 725737) { if ($val < 724092) { return 21; } else { if ($val < 724823) { return 22; } else { return 23; } } } else { if ($val < 726468) { return 24; } else { if ($val < 726833) { return 25; } else { return 26; } } } } else { if ($val < 728659) { if ($val < 727745) { return 27; } else { if ($val < 728110) { return 28; } else { return 29; } } } else { if ($val < 729206) { return 30; } else { if ($val < 729755) { return 31; } else { return 32; } } } } } } 1..10 ok 1 - Can call DateTime->now with LMT ok 2 - Can add 50 years ok 3 - Can subtract 400 years ok 4 - make sure that local time is always respected ok 5 - make sure that local time is always respected ok 6 - make sure that we can convert to LMT ok 7 - make sure that we can convert from LMT to Olson ok 8 - make sure that we can convert from LMT to Floating ok 9 - make sure that we can convert from LMT to Floating to Olson ok 10 - make sure that we can convert from LMT to UTC ok t/04alias.......sub leap_seconds { my $val = shift; if ($val < 723727) { if ($val < 721354) { if ($val < 720259) { if ($val < 719893) { return 9; } else { if ($val < 720075) { return 10; } else { return 11; } } } else { if ($val < 720624) { return 12; } else { if ($val < 720989) { return 13; } else { return 14; } } } } else { if ($val < 722450) { if ($val < 721720) { return 15; } else { if ($val < 722085) { return 16; } else { return 17; } } } else { if ($val < 722815) { return 18; } else { if ($val < 723362) { return 19; } else { return 20; } } } } } else { if ($val < 727380) { if ($val < 725737) { if ($val < 724092) { return 21; } else { if ($val < 724823) { return 22; } else { return 23; } } } else { if ($val < 726468) { return 24; } else { if ($val < 726833) { return 25; } else { return 26; } } } } else { if ($val < 728659) { if ($val < 727745) { return 27; } else { if ($val < 728110) { return 28; } else { return 29; } } } else { if ($val < 729206) { return 30; } else { if ($val < 729755) { return 31; } else { return 32; } } } } } } 1..6 ok 1 - Can make a TimeZone alias for default name LMT ok 2 - Can make a TimeZone alias for custom name ok 3 - Can call DateTime->now with LMT ok 4 - Can call DateTime->now with custom name ok 5 - make sure that we can convert alias to Olson ok 6 - make sure that we can convert custom name to LMT ok t/05change......sub leap_seconds { my $val = shift; if ($val < 723727) { if ($val < 721354) { if ($val < 720259) { if ($val < 719893) { return 9; } else { if ($val < 720075) { return 10; } else { return 11; } } } else { if ($val < 720624) { return 12; } else { if ($val < 720989) { return 13; } else { return 14; } } } } else { if ($val < 722450) { if ($val < 721720) { return 15; } else { if ($val < 722085) { return 16; } else { return 17; } } } else { if ($val < 722815) { return 18; } else { if ($val < 723362) { return 19; } else { return 20; } } } } } else { if ($val < 727380) { if ($val < 725737) { if ($val < 724092) { return 21; } else { if ($val < 724823) { return 22; } else { return 23; } } } else { if ($val < 726468) { return 24; } else { if ($val < 726833) { return 25; } else { return 26; } } } } else { if ($val < 728659) { if ($val < 727745) { return 27; } else { if ($val < 728110) { return 28; } else { return 29; } } } else { if ($val < 729206) { return 30; } else { if ($val < 729755) { return 31; } else { return 32; } } } } } } 1..9 ok 1 - We get the correct longitude returned ok 2 - We can change the longitude ok 3 - And the offset changes ok 4 - And get the right response ok 5 - We get the right response in a set-and-read ok 6 - We can change the name ok 7 - And the name changes ok 8 - But the longitude doesn't ok 9 - Nor does the offset ok All tests successful. Files=6, Tests=79, 5 wallclock secs ( 4.88 cusr + 0.48 csys = 5.36 CPU) Installing /export/home/cpanrun/build/5.10.0/html/site/lib/DateTime/TimeZone/LMT.html Installing /export/home/cpanrun/build/5.10.0/site/lib/DateTime/TimeZone/LMT.pm Installing /export/home/cpanrun/build/5.10.0/site/man/man3/DateTime::TimeZone::LMT.3 Appending installation info to /export/home/cpanrun/build/5.10.0/lib/perllocal.pod