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.
|
