DateTime::Incomplete bug report

[Rick Measham]

Below is a patch to fix the %N strftime specifier in
DateTime::Incomplete. Because *_nanosecond is a glob reference to
&format_nanosecond we were getting an infinite depth recursion here.

Cheers!
Rick



*** ./lib/DateTime/Incomplete.pm        2003-11-01 13:49:38.000000000 +1100
--- /usr/lib/perl5/site_perl/5.8.0/DateTime/Incomplete.pm       2003-11-03
16:35:46.000000000 +1100
***************
*** 492,499 ****
      return $UNDEF_CHAR x $precision unless defined $self->nanosecond;
  
      # rd_nanosecs can have a fractional separator
!     my ( $ret, $frac ) = split /[.,]/, $self->_nanosecond;
!     $ret = sprintf "09d" => $ret;  # unless length( $ret ) == 9;
      $ret .= $frac if $frac;
  
      return substr( $ret, 0, $precision );
--- 492,499 ----
      return $UNDEF_CHAR x $precision unless defined $self->nanosecond;
  
      # rd_nanosecs can have a fractional separator
!     my ( $ret, $frac ) = split /[.,]/, $self->nanosecond;
!     $ret = sprintf "%09d" => $ret;  # unless length( $ret ) == 9;
      $ret .= $frac if $frac;
  
      return substr( $ret, 0, $precision );