1
Index: libdata-random-perl/t/rand_datetime.t
2
===================================================================
3
--- libdata-random-perl.orig/t/rand_datetime.t 2007-09-11 11:11:37.000000000 +0300
4
+++ libdata-random-perl/t/rand_datetime.t 2007-09-11 11:12:32.000000000 +0300
8
unless $delta >= 0 && $delta <= $max_days
9
- && _to_secs( ( split ( / /, $date ) )[1] );
10
+ && defined( _to_secs( ( split ( / /, $date ) )[1] ) );
17
unless $delta >= 0 && $delta <= $max_days
18
- && _to_secs( ( split ( / /, $date ) )[1] );
19
+ && defined( _to_secs( ( split ( / /, $date ) )[1] ) );
26
unless $delta >= 0 && $delta <= $max_days
27
- && _to_secs( ( split ( / /, $date ) )[1] );
28
+ && defined( _to_secs( ( split ( / /, $date ) )[1] ) );
35
unless $delta >= 0 && $delta <= $max_days
36
- && _to_secs( ( split ( / /, $date ) )[1] );
37
+ && defined( _to_secs( ( split ( / /, $date ) )[1] ) );
44
unless $new_year == $year && $new_month == $month && $new_day == $day
45
- && _to_secs( ( split ( / /, $date ) )[1] );
46
+ && defined( _to_secs( ( split ( / /, $date ) )[1] ) );