@@ -, +, @@ --- C4/Update/Database.pm | 20 +++++++++++++++++--- 1 file changed, 17 insertions(+), 3 deletions(-) --- a/C4/Update/Database.pm +++ a/C4/Update/Database.pm @@ -22,7 +22,7 @@ use Modern::Perl; use C4::Context; use File::Basename; -use File::Find::Rule; +use File::Find; use Digest::MD5; use List::MoreUtils qw/uniq/; use YAML; @@ -60,7 +60,14 @@ sub get_versions_path { sub get_filepath { my ( $version ) = @_; - my @files = File::Find::Rule->file->name( "$version.sql", "$version.pl" ) ->in( ( get_versions_path() ) ); + my @files; + find( + sub{ + return unless $_ =~ m|^$version\.pl$| or $_ =~ m|^$version\.sql$|; + push @files, $File::Find::name; + }, + ( get_versions_path() ) + ); if ( scalar @files != 1 ) { die "This version ($version) returned has ".scalar @files." corresponding, need only 1"; @@ -172,7 +179,14 @@ sub execute_version { sub list_versions_available { my @versions; - my @files = File::Find::Rule->file->name( "*.sql", "*.pl" ) ->in( ( get_versions_path() ) ); + my @files; + find( + sub{ + return unless $_ =~ m|\.pl$| or $_ =~ m|\.sql$|; + push @files, $File::Find::name; + }, + ( get_versions_path() ) + ); for my $f ( @files ) { my @file_infos = fileparse( $f, qr/\.[^.]*/ ); --