From: "Richard W.M. Jones" <rjones(a)redhat.com&gt; It's not our job to worry about downstream packaging issues ... --- tests/regressions/Makefile.am | 6 +-- tests/regressions/test-noexec-stack.pl | 84 ---------------------------------- 2 files changed, 2 insertions(+), 88 deletions(-) delete mode 100755 tests/regressions/test-noexec-stack.pl diff --git a/tests/regressions/Makefile.am b/tests/regressions/Makefile.am index a5e7cfc..661f6f9 100644 --- a/tests/regressions/Makefile.am +++ b/tests/regressions/Makefile.am @@ -41,8 +41,7 @@ EXTRA_DIST = \ rhbz1044014.in \ rhbz1044014.xml \ rhbz1054761.sh \ - rhbz1091803.sh \ - test-noexec-stack.pl + rhbz1091803.sh TESTS = \ rhbz501893 \ @@ -65,8 +64,7 @@ TESTS = \ rhbz1001875.sh \ rhbz1054761.sh \ rhbz1055452 \ - rhbz1091803.sh \ - test-noexec-stack.pl + rhbz1091803.sh if HAVE_LIBVIRT TESTS += rhbz1044014.sh diff --git a/tests/regressions/test-noexec-stack.pl b/tests/regressions/test-noexec-stack.pl deleted file mode 100755 index 68bbb0b..0000000 --- a/tests/regressions/test-noexec-stack.pl +++ /dev/null @@ -1,84 +0,0 @@ -#!/usr/bin/perl -# Copyright (C) 2009 Red Hat Inc. -# -# This program is free software; you can redistribute it and/or modify -# it under the terms of the GNU General Public License as published by -# the Free Software Foundation; either version 2 of the License, or -# (at your option) any later version. -# -# This program is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. - -use strict; -use warnings; - -if ($ENV{SKIP_TEST_NOEXEC_STACK_PL}) { - print "$0: skipped test because environment variable is set\n"; - exit 77; -} - -die("NOEXEC_CHECK not set") unless(exists($ENV{NOEXEC_CHECK})); - -my @files = split(/ /, $ENV{NOEXEC_CHECK}); - -FILES: foreach my $file (@files) { - my $output; - my @cmd = ('readelf', '-l', $file); - open($output, '-|', @cmd) - or die("$0: failed to run: '".join(' ', @cmd)."': $!\n"); - - my $offset; - my $line = 1; - - # Find the offset of the Flags field - while(<$output>) { - next unless(/^\s*Type\b/); - - my @lines; - push(@lines, $_); - - # Look for a Flg field on this line (32 bit) - $offset = index($_, 'Flg '); - - if(-1 == $offset) { - # 64 bit is split over 2 lines. Look for a Flags field on the next - # line - $_ = <$output>; - $offset = index($_, 'Flags '); - $line = 2; - push(@lines, $_); - } - - die("Unrecognised header: ".join("\n", @lines)) if(-1 == $offset); - last; - } - - # Find the GNU_STACK entry - while(<$output>) { - next unless(/^\s*GNU_STACK\b/); - - # Skip over input lines according to the header - for(my $i = 1; $i < $line; $i++) { - $_ = <$output>; - } - - my $flags = substr($_, $offset, 3); - - $flags =~ /^[ R][ W]([ E])$/ or die("Unrecognised flags: $flags"); - - if('E' eq $1) { - print "***** $file has an executable stack *****\n"; - exit(1); - } - - next FILES; - } - - die("Didn't find GNU_STACK entry"); -} -- 1.9.3