diff options
author | Michael Mair-Keimberger (asterix) <m.mairkeimberger@gmail.com> | 2016-09-07 19:59:29 +0200 |
---|---|---|
committer | Patrice Clement <monsieurp@gentoo.org> | 2016-09-09 15:27:40 +0200 |
commit | 3dc5de240d4d2a18fd31e6d25768ce19f4495927 (patch) | |
tree | a106e10481747100adf7e3d46f5d4e8a8094c497 /dev-perl/Perl-Tidy | |
parent | dev-perl/PDL: remove unused patches. (diff) | |
download | gentoo-3dc5de240d4d2a18fd31e6d25768ce19f4495927.tar.gz gentoo-3dc5de240d4d2a18fd31e6d25768ce19f4495927.tar.bz2 gentoo-3dc5de240d4d2a18fd31e6d25768ce19f4495927.zip |
dev-perl/Perl-Tidy: remove unused patch.
Signed-off-by: Patrice Clement <monsieurp@gentoo.org>
Diffstat (limited to 'dev-perl/Perl-Tidy')
-rw-r--r-- | dev-perl/Perl-Tidy/files/Perl-Tidy-20130922.0.0-CVE-2014-2277.patch | 80 |
1 files changed, 0 insertions, 80 deletions
diff --git a/dev-perl/Perl-Tidy/files/Perl-Tidy-20130922.0.0-CVE-2014-2277.patch b/dev-perl/Perl-Tidy/files/Perl-Tidy-20130922.0.0-CVE-2014-2277.patch deleted file mode 100644 index f52e3f6b7f1f..000000000000 --- a/dev-perl/Perl-Tidy/files/Perl-Tidy-20130922.0.0-CVE-2014-2277.patch +++ /dev/null @@ -1,80 +0,0 @@ -Description: Replace insecure make_temporary_filename with File::Temp::tempfile -Forwarded: http://lists.example.com/2010/03/1234.html -Origin: vendor, http://bugs.debian.org/740670 -Author: Don Armstrong <don@debian.org> -Last-Update: 2010-03-29 ---- a/lib/Perl/Tidy.pm -+++ b/lib/Perl/Tidy.pm -@@ -76,6 +76,7 @@ - use IO::File; - use File::Basename; - use File::Copy; -+use File::Temp qw(tempfile); - - BEGIN { - ( $VERSION = q($Id: perltidy-20130922.0.0-CVE-2014-2277.patch,v 1.1 2014/03/11 18:40:27 civil Exp $) ) =~ s/^.*\s+(\d+)\/(\d+)\/(\d+).*$/$1$2$3/; # all one line for MakeMaker -@@ -235,35 +236,6 @@ - return undef; - } - --sub make_temporary_filename { -- -- # Make a temporary filename. -- # The POSIX tmpnam() function has been unreliable for non-unix systems -- # (at least for the win32 systems that I've tested), so use a pre-defined -- # name for them. A disadvantage of this is that two perltidy -- # runs in the same working directory may conflict. However, the chance of -- # that is small and manageable by the user, especially on systems for which -- # the POSIX tmpnam function doesn't work. -- my $name = "perltidy.TMP"; -- if ( $^O =~ /win32|dos/i || $^O eq 'VMS' || $^O eq 'MacOs' ) { -- return $name; -- } -- eval "use POSIX qw(tmpnam)"; -- if ($@) { return $name } -- use IO::File; -- -- # just make a couple of tries before giving up and using the default -- for ( 0 .. 3 ) { -- my $tmpname = tmpnam(); -- my $fh = IO::File->new( $tmpname, O_RDWR | O_CREAT | O_EXCL ); -- if ($fh) { -- $fh->close(); -- return ($tmpname); -- last; -- } -- } -- return ($name); --} - - # Here is a map of the flow of data from the input source to the output - # line sink: -@@ -1324,11 +1296,7 @@ - my ( $fh_stream, $fh_name ) = - Perl::Tidy::streamhandle( $stream, 'r' ); - if ($fh_stream) { -- my ( $fout, $tmpnam ); -- -- # TODO: fix the tmpnam routine to return an open filehandle -- $tmpnam = Perl::Tidy::make_temporary_filename(); -- $fout = IO::File->new( $tmpnam, 'w' ); -+ my ( $fout, $tmpnam ) = tempfile(); - - if ($fout) { - $fname = $tmpnam; -@@ -5159,14 +5127,7 @@ - # Pod::Html requires a real temporary filename - # If we are making a frame, we have a name available - # Otherwise, we have to fine one -- my $tmpfile; -- if ( $rOpts->{'frames'} ) { -- $tmpfile = $self->{_toc_filename}; -- } -- else { -- $tmpfile = Perl::Tidy::make_temporary_filename(); -- } -- my $fh_tmp = IO::File->new( $tmpfile, 'w' ); -+ my ($fh_tmp,$tmpfile) = tempfile(); - unless ($fh_tmp) { - Perl::Tidy::Warn - "unable to open temporary file $tmpfile; cannot use pod2html\n"; |