This function is based on the function "Delta_YMD()" above but additionally calculates the time difference. When a carry over from the time difference occurs, the value of "$D_d" is adjusted accordingly, thus giving the correct total date/time difference.

The Date::Calc Readme doesn't make any mention of changes regarding this function, so I don't think it's something that's been changed recently.

I guess the bottom line is, I'm not confident enough in my debugging skills to know if I've discovered a bug, am misreading the documentation, or if something is goofy on the system I'm working with. Any feedback would be greatly appreciated.

#!/usr/bin/perl

use warnings;
use strict;
use Date::Calc qw/Time_to_Date Delta_YMDHMS Delta_DHMS Today_and_Now/;

my ( $year, $month, $day, $hour, $min, $sec ) = Today_and_Now();
my ( $end_year, $end_month, $end_day, $end_hour, $end_min, $end_sec )
  = ( 2004, 4, 1, 0, 0, 0 );

my @cached_today_and_now = Today_and_Now;

print "Today_and_Now value: ", join('-', @cached_today_and_now), "\n";
print "End time value: 2004-4-1-0-0-0\n\n";

print 'Function     |',
  join ( '|',
    map { sprintf( "%-5s", $_ ) } qw/Yrs Mons Hrs Days Mins Secs/ ),
    "\n";
print "-" x 49, "\n";

# The two N/As are added in to pad the results of Delta_DHMS, as it
# returns two fewer values and I wanted the table to line up neatly
print 'Delta_DHMS   |',
  join ('|',
    ('  N/A', '  N/A',
        map { sprintf( "%5d", $_ ) }
          Delta_DHMS( @cached_today_and_now, 2004, 4, 1, 0, 0, 0 ))),
    "\n";
print 'Delta_YMDHMS |',
  join ( '|',
    map { sprintf( "%5d", $_ ) }
      Delta_YMDHMS( @cached_today_and_now, 2004, 4, 1, 0, 0, 0 ) ),
    "\n";
[download]