-if ($opt_n) {
- @customfiles = ();
- @menufiles = ($menufile);
-} else {
- tie %dir_h, 'IO::Dir', $basedir;
- @menufiles = map { "$basedir/$_" } grep { /.*?_$menufile$/ } keys %dir_h;
- unshift @menufiles, "$basedir/$menufile";
+my @dbplfiles;
+foreach my $sub_dir ("Pg-upgrade2", "Pg-upgrade2-auth") {
+ my $dir = "$basedir/sql/$sub_dir";
+ tie %dir_h, 'IO::Dir', $dir;
+ push @dbplfiles, map { [ $_, $dir ] } grep { /\.pl$/ } keys %dir_h;