From 29a5a96ad6601552dd0f436e7254db000cf89b04 Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Fri, 21 Aug 2015 13:25:02 +0200 Subject: [PATCH] Bug 14705: Allow .pl too in atomicupdate Content-Type: text/plain; charset=utf-8 Bug 13893 added perl files with the extension .perl. In practice you always tend to add a .pl file. I suggest to add it. Test plan: [1] Add a .pl file in atomicupdate. [2] Try the update step in webinstaller. --- installer/data/mysql/updatedatabase.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/installer/data/mysql/updatedatabase.pl b/installer/data/mysql/updatedatabase.pl index 10809a1..adc3b18 100755 --- a/installer/data/mysql/updatedatabase.pl +++ b/installer/data/mysql/updatedatabase.pl @@ -10768,12 +10768,12 @@ if ( CheckVersion($DBversion) ) { my $update_dir = C4::Context->config('intranetdir') . '/installer/data/mysql/atomicupdate/'; opendir( my $dirh, $update_dir ); foreach my $file ( sort readdir $dirh ) { - next if $file !~ /\.(sql|perl)$/; #skip other files + next if $file !~ /\.(sql|pl|perl)$/; #skip other files print "DEV atomic update: $file\n"; if ( $file =~ /\.sql$/ ) { my $installer = C4::Installer->new(); my $rv = $installer->load_sql( $update_dir . $file ) ? 0 : 1; - } elsif ( $file =~ /\.perl$/ ) { + } elsif ( $file =~ /\.p(er)?l$/ ) { do $update_dir . $file; } } -- 1.7.10.4