diff options
| author | Doug Barton <dougb@FreeBSD.org> | 2003-02-28 07:41:03 +0000 |
|---|---|---|
| committer | Doug Barton <dougb@FreeBSD.org> | 2003-02-28 07:41:03 +0000 |
| commit | d523550ac8889dd3363f7e42b934350eb80153bf (patch) | |
| tree | 497cdeba32aeb021461be288c8d18e6344e04376 /mail/p5-Mail-SpamAssassin/files | |
| parent | c168cc0473a75f91987212ec20a9413b53b456af (diff) | |
Notes
Diffstat (limited to 'mail/p5-Mail-SpamAssassin/files')
| -rw-r--r-- | mail/p5-Mail-SpamAssassin/files/patch-lib_Mail_SpamAssassin_CmdLearn.pm | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/mail/p5-Mail-SpamAssassin/files/patch-lib_Mail_SpamAssassin_CmdLearn.pm b/mail/p5-Mail-SpamAssassin/files/patch-lib_Mail_SpamAssassin_CmdLearn.pm new file mode 100644 index 000000000000..f783829b419a --- /dev/null +++ b/mail/p5-Mail-SpamAssassin/files/patch-lib_Mail_SpamAssassin_CmdLearn.pm @@ -0,0 +1,27 @@ +--- lib/Mail/SpamAssassin/CmdLearn.pm.orig Tue Feb 18 17:29:45 2003 ++++ lib/Mail/SpamAssassin/CmdLearn.pm Thu Feb 27 18:53:49 2003 +@@ -24,7 +24,7 @@ + %opt = (); + + Getopt::Long::Configure(qw(bundling no_getopt_compat +- no_auto_abbrev no_ignore_case)); ++ permute no_auto_abbrev no_ignore_case)); + + GetOptions( + 'spam' => sub { $isspam = 1; }, +@@ -56,12 +56,12 @@ + 'file' => sub { $opt{'format'} = 'file'; }, + 'mbox' => sub { $opt{'format'} = 'mbox'; }, + +- 'single' => sub { +- $opt{'format'} = 'file'; push (@ARGV, '-'); +- }, ++ 'single' => sub { $opt{'format'} = 'file'; }, + + '<>' => \&target, + ) or usage(0, "Unknown option!"); ++ ++ if ($opt{'format'} eq 'file') { push (@ARGV, '-'); } + + if (defined $opt{'help'}) { usage(0, "For more information read the manual page"); } + if (defined $opt{'version'}) { |