From a717b77fa05a3b71dd09f20da97d0af56e0b9ea2 Mon Sep 17 00:00:00 2001
From: Guillaume Rousse <guillomovitch@mandriva.org>
Date: Fri, 8 May 2009 23:07:18 +0000
Subject: drop man page normalisation: it doesn't work on compressed man pages
 (mdv bug#50729), and seems to be uneeded anymore, as file command doesn't
 need it anymore

---
 normalize_man_pages | 60 -----------------------------------------------------
 1 file changed, 60 deletions(-)
 delete mode 100755 normalize_man_pages

diff --git a/normalize_man_pages b/normalize_man_pages
deleted file mode 100755
index fffc342..0000000
--- a/normalize_man_pages
+++ /dev/null
@@ -1,60 +0,0 @@
-#!/usr/bin/perl
-# $Id: fix_eol 242516 2008-05-14 08:54:21Z guillomovitch $
-# ensure all man pages contains a comment line
-
-use strict;
-use warnings;
-use File::Find;
-use File::Temp;
-
-my $buildroot = $ENV{RPM_BUILD_ROOT};
-die "No build root defined" unless $buildroot;
-die "Invalid build root" unless -d $buildroot;
-# normalize build root
-$buildroot =~ s|/$||;
-
-my $mandir=`rpm --eval %{_mandir}`;
-chomp $mandir;
-
-my $exclude_string = join('|',
-    map { '(:?' . quotemeta($_) . ')' }
-    $ENV{EXCLUDE_FROM_NORMALIZATION} ?
-        split(' ', $ENV{EXCLUDE_FROM_NORMALIZATION}) : ()
-);
-my $exclude_pattern = qr/$exclude_string/;
-
-find(\&normalize, $buildroot . $mandir);
-
-sub normalize {
-    # skip everything but files
-    return unless -f $_;
-    # skip symlinks
-    return if -l $_;
-    # skip excluded files
-    return if $exclude_string && $File::Find::name =~ $exclude_pattern;
-
-    # check if first line begin with a comment
-    open(my $in, '<', $_) or die "Unable to open file $_: $!";
-    my $line =  <$in>;
-    if (defined $line && $line !~ /^\.\\"/) {
-        # process all file
-        my $out = File::Temp->new(DIR => '.', UNLINK => 0);
-        print $out <<'EOF';
-.\""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
-.\" make the file command recognize this file as a roff text
-.\""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
-EOF
-        print $out $line;
-        while (defined ($line = <$in>)) {
-            print $out $line;
-        }
-        my $tmp = $out->filename;
-        $out = undef;
-
-        # rename file, taking care to keep original permissions
-        my $perms = (stat $_)[2] & 07777;
-        rename($tmp, $_) or die "Unable to rename $tmp to $_: $!";
-        chmod($perms, $_);
-    }
-    close($in);
-}
-- 
cgit v1.2.1