#!/usr/bin/perl my $basedir = "$ENV{RPM_BUILD_ROOT}/usr/include/singular"; foreach my $file (`find $basedir -name \*.h`) { chomp($file); my $temp = "$file" . ".tmp"; open(I, "<$file") or die("cannot read from $file"); open(O, ">$temp") or die("cannot write to $temp"); while (<I>) { if (m/(^\s*#\s*include\s+[<"])([^>"]+)(.+)/) { if (-f "$basedir/$2") { print(O "$1" . "singular/$2" . "$3\n"); } elsif (-f "$basedir/Singular/$2") { print(O "$1" . "singular/Singular/$2" . "$3\n"); } else { print(O $_); } } else { print(O $_); } } close(I); close(O); `mv $temp $file`; }