qpsmtpd/sme8/0004-microoptimizations-replace-regex-with-lc-eq.patch

From e37f14b9a63e39b344955e7bc79ffe4262e93811 Mon Sep 17 00:00:00 2001
From: Robert <rspier@pobox.com>
Date: Sun, 9 May 2010 22:45:59 -0700
Subject: microoptimizations - replace regex with lc eq

---
 plugins/check_bogus_bounce |    8 ++++----
 1 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/plugins/check_bogus_bounce b/plugins/check_bogus_bounce
index 045889c..968f1c6 100644
--- a/plugins/check_bogus_bounce
+++ b/plugins/check_bogus_bounce
@@ -88,7 +88,7 @@ sub hook_data_post {
     # Find the sender, and return unless it wasn't a bounce.
     #
     my $sender = $transaction->sender->address || undef;
-    return DECLINED unless ($sender =~ /^<>$/);
+    return DECLINED unless ($sender eq "<>");
 
     #
     #  Get the recipients.
@@ -102,15 +102,15 @@ sub hook_data_post {
     #   1.  It is a bounce, via the null-envelope.
     #   2.  It is a bogus bounce, because there are more than one recipients.
     #
-    if ($self->{_action} =~ /^log$/i) {
+    if (lc $self->{_action} eq "log") {
         $self->log(LOGWARN,
                  $self->plugin_name() . " bogus bounce for :" . join(",", @to));
     }
-    elsif ($self->{_action} =~ /^deny$/i) {
+    elsif (lc $self->{_action} eq "deny") {
         return (DENY,
                 $self->plugin_name() . " determined this to be a bogus bounce");
     }
-    elsif ($self->{_action} =~ /^denysoft$/i) {
+    elsif (lc $self->{_action} eq "denysoft") {
         return (DENYSOFT,
                 $self->plugin_name() . " determined this to be a bogus bounce");
     }
-- 
1.7.2.2

1	slords	1.1	From e37f14b9a63e39b344955e7bc79ffe4262e93811 Mon Sep 17 00:00:00 2001
2			From: Robert <rspier@pobox.com>
3			Date: Sun, 9 May 2010 22:45:59 -0700
4			Subject: microoptimizations - replace regex with lc eq
5
6			---
7			plugins/check_bogus_bounce \| 8 ++++----
8			1 files changed, 4 insertions(+), 4 deletions(-)
9
10			diff --git a/plugins/check_bogus_bounce b/plugins/check_bogus_bounce
11			index 045889c..968f1c6 100644
12			--- a/plugins/check_bogus_bounce
13			+++ b/plugins/check_bogus_bounce
14			@@ -88,7 +88,7 @@ sub hook_data_post {
15			# Find the sender, and return unless it wasn't a bounce.
16			#
17			my $sender = $transaction->sender->address \|\| undef;
18			- return DECLINED unless ($sender =~ /^<>$/);
19			+ return DECLINED unless ($sender eq "<>");
20
21			#
22			# Get the recipients.
23			@@ -102,15 +102,15 @@ sub hook_data_post {
24			# 1. It is a bounce, via the null-envelope.
25			# 2. It is a bogus bounce, because there are more than one recipients.
26			#
27			- if ($self->{_action} =~ /^log$/i) {
28			+ if (lc $self->{_action} eq "log") {
29			$self->log(LOGWARN,
30			$self->plugin_name() . " bogus bounce for :" . join(",", @to));
31			}
32			- elsif ($self->{_action} =~ /^deny$/i) {
33			+ elsif (lc $self->{_action} eq "deny") {
34			return (DENY,
35			$self->plugin_name() . " determined this to be a bogus bounce");
36			}
37			- elsif ($self->{_action} =~ /^denysoft$/i) {
38			+ elsif (lc $self->{_action} eq "denysoft") {
39			return (DENYSOFT,
40			$self->plugin_name() . " determined this to be a bogus bounce");
41			}
42			--
43			1.7.2.2
44