All uses of perl must die.
On 10/14/2010 02:46 PM, Chris Lumens wrote:
---
utils/Makefile.am | 1 -
utils/filtermoddeps | 25 -------------------------
2 files changed, 0 insertions(+), 26 deletions(-)
delete mode 100755 utils/filtermoddeps
So, so ack.
diff --git a/utils/Makefile.am b/utils/Makefile.am
index 7f44c9e..5d4323d 100644
--- a/utils/Makefile.am
+++ b/utils/Makefile.am
@@ -25,7 +25,6 @@ dist_sbin_SCRIPTS = logpicker
utils_PROGRAMS = modlist mapshdr readmap
dist_utils_SCRIPTS = genmodinfo trimpciids
noinst_PROGRAMS = snarffont
-dist_noinst_SCRIPTS = filtermoddeps
if IS_S390
utils_PROGRAMS += addrsize mk-s390-cdboot
diff --git a/utils/filtermoddeps b/utils/filtermoddeps
deleted file mode 100755
index 3deeed0..0000000
--- a/utils/filtermoddeps
+++ /dev/null
@@ -1,25 +0,0 @@
-#!/bin/bash
-#
-# filtermoddeps
-#
-# Copyright (C) 2007 Red Hat, Inc. All rights reserved.
-#
-# 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, see<http://www.gnu.org/licenses/>.
-#
-
-perl -e 'while (<>) { if (/
/) { chop; s/$//; print;} else { print $_; } }' | grep ':.*ko' | sed -e '
-s/.ko//g
-s,/[^: ]*/,,g
-s/[ ][ ]*/ /g'
-
--
Peter
The Shuttle is now going five times the sound of speed.
-- Dan Rather, first landing of Columbia
01234567890123456789012345678901234567890123456789 012345678901234567890123456789
_______________________________________________
Anaconda-devel-list mailing list
Anaconda-devel-list@redhat.com
https://www.redhat.com/mailman/listinfo/anaconda-devel-list
|
