diff options
author | Torsten Veller <tove@gentoo.org> | 2009-08-16 09:31:03 +0000 |
---|---|---|
committer | Torsten Veller <tove@gentoo.org> | 2009-08-16 09:31:03 +0000 |
commit | bd6d668ccfc13189b42422d7d883fbe31b27b486 (patch) | |
tree | f64271eac520f641805c106975097da224fabf56 /dev-perl | |
parent | Remove unused patch (diff) | |
download | gentoo-2-bd6d668ccfc13189b42422d7d883fbe31b27b486.tar.gz gentoo-2-bd6d668ccfc13189b42422d7d883fbe31b27b486.tar.bz2 gentoo-2-bd6d668ccfc13189b42422d7d883fbe31b27b486.zip |
Remove unused patch
(Portage version: 2.2_rc38/cvs/Linux x86_64)
Diffstat (limited to 'dev-perl')
-rw-r--r-- | dev-perl/File-MimeInfo/ChangeLog | 6 | ||||
-rw-r--r-- | dev-perl/File-MimeInfo/files/mimeinfo.patch | 19 | ||||
-rw-r--r-- | dev-perl/File-MimeInfo/files/test01.patch | 8 |
3 files changed, 5 insertions, 28 deletions
diff --git a/dev-perl/File-MimeInfo/ChangeLog b/dev-perl/File-MimeInfo/ChangeLog index 80e9a4f9c385..7bbf1af4b1df 100644 --- a/dev-perl/File-MimeInfo/ChangeLog +++ b/dev-perl/File-MimeInfo/ChangeLog @@ -1,6 +1,10 @@ # ChangeLog for dev-perl/File-MimeInfo # Copyright 1999-2009 Gentoo Foundation; Distributed under the GPL v2 -# $Header: /var/cvsroot/gentoo-x86/dev-perl/File-MimeInfo/ChangeLog,v 1.47 2009/07/06 20:49:59 jer Exp $ +# $Header: /var/cvsroot/gentoo-x86/dev-perl/File-MimeInfo/ChangeLog,v 1.48 2009/08/16 09:31:02 tove Exp $ + + 16 Aug 2009; Torsten Veller <tove@gentoo.org> -files/mimeinfo.patch, + -files/test01.patch: + Remove unused patch 06 Jul 2009; Jeroen Roovers <jer@gentoo.org> File-MimeInfo-0.15.ebuild: Stable for HPPA too. diff --git a/dev-perl/File-MimeInfo/files/mimeinfo.patch b/dev-perl/File-MimeInfo/files/mimeinfo.patch deleted file mode 100644 index 50f7917476e4..000000000000 --- a/dev-perl/File-MimeInfo/files/mimeinfo.patch +++ /dev/null @@ -1,19 +0,0 @@ ---- File-MimeInfo-0.13.orig/MimeInfo.pm 2006-07-09 10:57:47.000000000 -0400 -+++ File-MimeInfo-0.13/MimeInfo.pm 2006-07-09 10:59:12.000000000 -0400 -@@ -116,8 +116,14 @@ sub default { - - { - no warnings; # warnings can be thrown when input is neither ascii or utf8 -- $line =~ s/\s//g; # \n and \t are also control chars -- return 'text/plain' unless $line =~ /[\x00-\x1F\xF7]/; -+ if ($] < 5.008) { -+ $line =~ s/([^\0-\x7F])/do {my $o = ord($1); sprintf("%c%c", 0xc0 | ($o >> 6), 0x80 | ($o & 0x3f)) }/ge; -+ } -+ else -+ { -+ utf8::encode($line) -+ } -+ return 'text/plain' unless $line =~ /[\x00-\x1F\xF7]/; - } - print STDERR "> First 10 bytes of the file contain control chars\n" if $DEBUG; - return 'application/octet-stream'; diff --git a/dev-perl/File-MimeInfo/files/test01.patch b/dev-perl/File-MimeInfo/files/test01.patch deleted file mode 100644 index b5f5ce41ac42..000000000000 --- a/dev-perl/File-MimeInfo/files/test01.patch +++ /dev/null @@ -1,8 +0,0 @@ -diff -Naurp File-MimeInfo-0.13/t/default/plain_text File-MimeInfo-0.13.new/t/default/plain_text ---- File-MimeInfo-0.13/t/default/plain_text 2003-07-12 12:39:39.000000000 -0400 -+++ File-MimeInfo-0.13.new/t/default/plain_text 2006-09-06 10:19:44.000000000 -0400 -@@ -1,4 +1 @@ -- - This is a plain text file -- -- |