[Openinteract-commits] CVS: OpenInteract2/lib/OpenInteract2 Package.pm,1.53,1.54

[Chris W. <la...@us...>]

Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14918

Modified Files:
	Package.pm 
Log Message:
be sure to return a full path to the message files (as stated in docs)


Index: Package.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Package.pm,v
retrieving revision 1.53
retrieving revision 1.54
diff -C2 -d -r1.53 -r1.54
*** Package.pm	12 Mar 2005 18:37:18 -0000	1.53
--- Package.pm	13 Mar 2005 18:36:24 -0000	1.54
***************
*** 293,302 ****
      unless ( scalar @{ $base_files } ) {
          my $files = $self->get_files;
!         $base_files = [ grep { m!^msg/.*\.(mo|po|msg)$! } @{ $files } ];
      }
      my $dir = $self->directory;
      my @full_message_files = map { catfile( $dir, $_ ) } @{ $base_files };
      $self->_check_file_validity( \@full_message_files );
!     return $base_files;
  }
  
--- 293,302 ----
      unless ( scalar @{ $base_files } ) {
          my $files = $self->get_files;
!         $base_files = [ grep /^msg\/.*\.(mo|po|msg)$/, @{ $files } ];
      }
      my $dir = $self->directory;
      my @full_message_files = map { catfile( $dir, $_ ) } @{ $base_files };
      $self->_check_file_validity( \@full_message_files );
!     return \@full_message_files;
  }
  
***************
*** 1701,1705 ****
  L<OpenInteract2::Config::Package|OpenInteract2::Config::Package>), or
  this routine will pick up all files that match
! C<^msg/*\.(mo|po|msg)$>.
  
  Returns: arrayref of fully-qualified message files.
--- 1701,1705 ----
  L<OpenInteract2::Config::Package|OpenInteract2::Config::Package>), or
  this routine will pick up all files that match
! C<^msg/.*\.(mo|po|msg)$>.
  
  Returns: arrayref of fully-qualified message files.