diff options
Diffstat (limited to 'www/bricolage/files/patch-inst_db_upgrade.pl')
-rw-r--r-- | www/bricolage/files/patch-inst_db_upgrade.pl | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/www/bricolage/files/patch-inst_db_upgrade.pl b/www/bricolage/files/patch-inst_db_upgrade.pl new file mode 100644 index 000000000000..dd38200c575b --- /dev/null +++ b/www/bricolage/files/patch-inst_db_upgrade.pl @@ -0,0 +1,19 @@ +*** inst/db_upgrade.pl.orig Fri Sep 16 19:50:20 2005 +--- inst/db_upgrade.pl Fri Feb 3 19:47:06 2006 +*************** +*** 73,79 **** + next unless -d $dir; + + opendir(DIR, $dir) or die "can't opendir $dir: $!"; +! my @scripts = grep { -f $_ } map { catfile($dir, $_) } sort readdir(DIR); + closedir DIR; + + foreach my $script (@scripts) { +--- 73,79 ---- + next unless -d $dir; + + opendir(DIR, $dir) or die "can't opendir $dir: $!"; +! my @scripts = grep { -f $_ and $_ =~ /\.pl$/ } map { catfile($dir, $_) } sort readdir(DIR); + closedir DIR; + + foreach my $script (@scripts) { |