summaryrefslogtreecommitdiff
path: root/git-send-email.perl
diff options
context:
space:
mode:
authorÆvar Arnfjörð Bjarmason <avarab@gmail.com>2010-09-30 13:43:05 (GMT)
committerJunio C Hamano <gitster@pobox.com>2010-09-30 20:06:42 (GMT)
commit49f73852c80ee681c179ee2eb76b1a792d7b1b22 (patch)
treed12981738d8d01685bde5801c409c91f239909eb /git-send-email.perl
parent41ae8f1d6cf70f32328c984cdbe51d0f156cd501 (diff)
downloadgit-49f73852c80ee681c179ee2eb76b1a792d7b1b22.zip
git-49f73852c80ee681c179ee2eb76b1a792d7b1b22.tar.gz
git-49f73852c80ee681c179ee2eb76b1a792d7b1b22.tar.bz2
send-email: is_rfc2047_quoted use qr// regexes
Signed-off-by: Ævar Arnfjörð Bjarmason <avarab@gmail.com> Signed-off-by: Junio C Hamano <gitster@pobox.com>
Diffstat (limited to 'git-send-email.perl')
-rwxr-xr-xgit-send-email.perl4
1 files changed, 2 insertions, 2 deletions
diff --git a/git-send-email.perl b/git-send-email.perl
index 036e4b4..1890409 100755
--- a/git-send-email.perl
+++ b/git-send-email.perl
@@ -852,8 +852,8 @@ sub quote_rfc2047 {
sub is_rfc2047_quoted {
my $s = shift;
- my $token = '[^][()<>@,;:"\/?.= \000-\037\177-\377]+';
- my $encoded_text = '[!->@-~]+';
+ my $token = qr/[^][()<>@,;:"\/?.= \000-\037\177-\377]+/;
+ my $encoded_text = qr/[!->@-~]+/;
length($s) <= 75 &&
$s =~ m/^(?:"[[:ascii:]]*"|=\?$token\?$token\?$encoded_text\?=)$/o;
}