--- a/base-specs/gettext.spec	Wed Oct 10 10:17:52 2007 +0000
+++ b/base-specs/gettext.spec	Wed Oct 10 13:44:01 2007 +0000
@@ -80,6 +80,17 @@
 rm -rf $RPM_BUILD_ROOT%{gettextdir}/lib/gettext
 rm -f $RPM_BUILD_ROOT%{gettextdir}/lib/libgettextpo*
 
+# Change /usr/bin/perl to /usr/perl5/bin/perl. Preempting bugs like 5100958.
+export PERL=/usr/perl5/bin/perl
+cd $RPM_BUILD_ROOT%{_datadir}/doc/gettext/examples/hello-c++-kde/admin
+for f in debianrules conf.change.pl cvs-clean.pl am_edit config.pl
+do
+  sed "s|/usr/bin/perl|$PERL|" $f >$f.$$
+  mv $f.$$ $f
+done
+
+
+
 %clean
 rm -rf $RPM_BUILD_ROOT
 
@@ -87,6 +98,9 @@
 # this is just a skeleton spec file for use in SUNWgnome-common-devel.spec
 
 %changelog
+* Wed Oct 10 2007 - [email protected]
+- Add code to %install to change the #!/usr/bin/perl to #!/usr/perl5/bin/perl
+  to preempt bugs like 5100958.
 * Mon Mar 12 2007 - [email protected]
 - add --without-emacs option
 * Tue Feb 27 2007  <[email protected]>