[tin-dev] [tinews.pl] setting sig_path in tinewsrc fails sometimes
Dennis Preiser
dennis at d--p.de
Tue Dec 5 22:05:18 CET 2017
Setting sig_path in ~/.tinewsrc fails if one uses '~' to specify the
location of the file, e.g sig_path=~/.Sig.
The patch below (two times glob() added) fixes this for me.
Dennis
--- a/tinews.pl 2017-09-22 12:31:02.000000000 +0200
+++ b/tinews.pl 2017-12-05 21:47:41.000000000 +0100
@@ -260,10 +260,10 @@ readarticle(\%Header, \@Body);
# Add signature if there is none
if (!$config{'no_signature'}) {
if ($config{'add_signature'} && !grep {/^-- /} @Body) {
- if (-r $config{'sig_path'}) {
+ if (-r glob($config{'sig_path'})) {
my $l = 0;
push @Body, "-- \n";
- open(my $SIGNATURE, '<', $config{'sig_path'}) or die("Can't open " . $config{'sig_path'} . ": $!");
+ open(my $SIGNATURE, '<', glob($config{'sig_path'})) or die("Can't open " . $config{'sig_path'} . ": $!");
while (<$SIGNATURE>){
die $config{'sig_path'} . " longer than " . $config{'sig_max_lines'}. " lines!" if (++$l > $config{'sig_max_lines'});
push @Body, $_;
More information about the tin-dev
mailing list