diff --git a/ChangeLog b/ChangeLog index c35c517..80fb719 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +yapfaq 1.1.1 (2026-06-01) + * Warn for missing .rc file. + * Add trailing slash to --datadir, if missing. + yapfaq 1.1.0 (2026-02-13) * --test: Set Supersedes and don't modify Message-ID if -o is set. * --test: Force -o if -n is not set. diff --git a/bin/yapfaq.pl b/bin/yapfaq.pl index dbc027b..4ac2a2d 100755 --- a/bin/yapfaq.pl +++ b/bin/yapfaq.pl @@ -19,7 +19,7 @@ # It can be redistributed and/or modified under the same terms under # which Perl itself is published. -my $VERSION = "1.1.0"; +my $VERSION = "1.1.1"; (my $NAME = $0) =~ s#^.*/##; use utf8; @@ -79,6 +79,8 @@ if (defined($RCFILE)) { } } close($RCFILE); +} else { + warn "W: No .rc file found.\n"; } # these env-vars have higher priority (order is important) @@ -118,6 +120,9 @@ if ($OptSimulation) { # -t implies -o if -n is not set $OptOutput = 1 if $OptTest && !$OptNewsgroup; +# add trailing slash to $Config{'datadir'}, if necessary +$Config{'datadir'} .= '/' if $Config{'datadir'} !~ /\/$/; + ### create list of @Projects from $Config{'datadir'} unless -p is set my @Projects; if (!$OptProject) {