diff options
Diffstat (limited to 'mail/p5-MIME-Tools/files/patch-Filer.pm-whitespace')
| -rw-r--r-- | mail/p5-MIME-Tools/files/patch-Filer.pm-whitespace | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/mail/p5-MIME-Tools/files/patch-Filer.pm-whitespace b/mail/p5-MIME-Tools/files/patch-Filer.pm-whitespace deleted file mode 100644 index e011a0b7f4ed..000000000000 --- a/mail/p5-MIME-Tools/files/patch-Filer.pm-whitespace +++ /dev/null @@ -1,23 +0,0 @@ ---- lib/MIME/Parser/Filer.pm Thu Nov 23 06:04:03 2000 -+++ lib/MIME/Parser/Filer.pm Thu Aug 26 00:42:18 2004 -@@ -357,8 +357,9 @@ - $self->debug("is this evil? '$name'"); - - return 1 if (!defined($name) or ($name eq '')); ### empty -+ return 1 if ($name =~ m{(^\s)|(\s+\Z)}); ### leading/trailing whitespace - return 1 if ($name =~ m{^\.+\Z}); ### dots -- return 1 if ($name =~ tr{\\/:[]}{}); ### path characters -+ return 1 if ($name =~ /((?:[\[\]\\\/\<\>\|\?\*\:\"]|\p{IsCntrl}))/); ### path or special characters - return 1 if ($self->{MPF_MaxName} and - (length($name) > $self->{MPF_MaxName})); - -@@ -402,6 +403,9 @@ - my ($root, $ext) = (($last =~ /^(.*)\.([^\.]+)\Z/) - ? ($1, $2) - : ($last, '')); -+ ### Delete leading and trailing whitespace -+ $root =~ s/^\s+//; -+ $ext =~ s/\s+$//; - $root = substr($root, 0, ($self->{MPF_TrimRoot} || 14)); - $ext = substr($ext, 0, ($self->{MPF_TrimExt} || 3)); - $ext =~ /^\w+$/ or $ext = "dat"; |