patch for DateTime::Calendar::Julian

[Tatsuhiko Miyagawa]

Here's a patch to

* pass on 5.005_03. (weird thing going on with not vs. ! in Test:More::ok())
* shut up warnings against "my variables $d ..." 

--
Tatsuhiko Miyagawa <[EMAIL PROTECTED]>


--- t/1.t~      Fri Feb 28 06:55:26 2003
+++ t/1.t       Fri Feb 28 17:21:06 2003
@@ -21,11 +21,11 @@
                 [ '0000/01/03', '0000/01/01' ], # 1 BC
                 ['-4712/01/01','-4713/11/24' ], # Julian Day 1
               ) {
-    my ($y, $m, $d) = split '/', $date->[0];
+    my ($y, $m, $day) = split '/', $date->[0];
     # time_zone to work around a bug(?) in early DateTime versions
     my $d = DateTime::Calendar::Julian->new(year      => $y,
                                             month     => $m,
-                                            day       => $d,
+                                            day       => $day,
                                             time_zone => 'floating' );
     my $dt = DateTime->from_object( object => $d );
     is($dt->ymd('/'), $date->[1], "converting $date->[0] to Gregorian");
@@ -35,7 +35,7 @@
 }
 
 $d = DateTime::Calendar::Julian->new(year => 2003);
-ok(not($d->is_leap_year), 'non-leap year');
+ok(!($d->is_leap_year), 'non-leap year');
 
 $d = DateTime::Calendar::Julian->new(year => 2004);
 ok($d->is_leap_year, 'ordinary leap year');