projects
/
usenet
/
yapfaq.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Test mode: Add X-Supersedes only if Supersedes would be set.
[usenet/yapfaq.git]
/
yapfaq.pl
diff --git
a/yapfaq.pl
b/yapfaq.pl
index
a229e39
..
5bc7919
100644
(file)
--- a/
yapfaq.pl
+++ b/
yapfaq.pl
@@
-1,6
+1,6
@@
#! /usr/bin/perl -W
#
#! /usr/bin/perl -W
#
-# yapfaq Version 0.
8.
1 by Thomas Hochstein
+# yapfaq Version 0.
9
1 by Thomas Hochstein
# (Original author: Marc Brockschmidt)
#
# This script posts any project described in its config-file. Most people
# (Original author: Marc Brockschmidt)
#
# This script posts any project described in its config-file. Most people
@@
-12,7
+12,7
@@
# It can be redistributed and/or modified under the same terms under
# which Perl itself is published.
# It can be redistributed and/or modified under the same terms under
# which Perl itself is published.
-our $VERSION = "0.9
-prelease
";
+our $VERSION = "0.9
1
";
# Please do not change this setting!
# You may override the default .rc file (.yapfaqrc) by using "-c .rc file"
# Please do not change this setting!
# You may override the default .rc file (.yapfaqrc) by using "-c .rc file"
@@
-300,7
+300,8
@@
sub postfaq {
$$NG = $Options{'t'};
$MID =~ s/@/-$Timestamp-test@/g;
$$ExtraHeaders .= "\n" if $$ExtraHeaders;
$$NG = $Options{'t'};
$MID =~ s/@/-$Timestamp-test@/g;
$$ExtraHeaders .= "\n" if $$ExtraHeaders;
- $$ExtraHeaders .= "X-Supersedes: $$Supersedes\nX-yapfaq-Remark: This is only a test message.";
+ $$ExtraHeaders .= "X-Supersedes: $$Supersedes\n" if $$Supersedes;
+ $$ExtraHeaders .= "X-yapfaq-Remark: This is only a test message.";
undef $$Supersedes;
}
undef $$Supersedes;
}
This page took
0.010851 seconds
and
4
git commands to generate.