view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

Revision history for App-VOJournal

v0.4.8 Wed Jan 26 20:25:14 CET 2022
	- call File::Find::find() with 'no_chdir => 1'
	  to avoid problems with taint mode on mswin32

v0.4.7 Tue Jan 25 11:05:31 CET 2022
	- optimize _find_last_file() to easily cope
	  with thousands of unrelated files below --basedir
	- make note in Perl POD about symlinks
	  (File::Find::find() won't follow symbolic links)

v0.4.6 Tue Dec 14 11:55:00 CET 2021
	- move on GitHub

lib/App/VOJournal.pm  view on Meta::CPAN

        elsif ($File::Find::dir =~ m|^$basedir/\d{4}$|) {
            @files = grep { /^\d{2}$/ } @_;
        }
        elsif ($File::Find::dir =~ m|^$basedir/\d{4}/\d{2}$|) {
            @files = grep { /^\d{8}\.otl$/ } @_;
        }
        return sort {$b cmp $a} @files;
    };
    find({wanted => $wanted,
          preprocess => $preprocess,
          untaint => 1,                 # needed when running in taint mode
          no_chdir => 1,                # we don't need to chdir
         },$basedir);
    return $last_file;
} # _find_last_file()

sub _use_last_file {
    my ($path,$last_file,$opt,$header) = @_;
    my $votl = App::VOJournal::VOTL->new();
    $votl->read_file_unchecked_boxes($last_file);
    if ($opt->{header}) {