Rewrite shell bangs using running perl

perl-IO-Compress.spec

@@ -7,7 +7,7 @@
 
 Name:           perl-IO-Compress
 Version:        2.074
-Release:        395%{?dist}
+Release:        396%{?dist}
 Summary:        Read and write compressed data
 License:        GPL+ or Artistic
 Group:          Development/Libraries
@@ -20,6 +20,7 @@ BuildRequires:  findutils
 BuildRequires:  make
 BuildRequires:  perl-interpreter
 BuildRequires:  perl-generators
+BuildRequires:  perl(Config)
 BuildRequires:  perl(ExtUtils::MakeMaker) >= 5.16
 BuildRequires:  perl(File::Copy)
 BuildRequires:  perl(File::Spec::Functions)
@@ -28,7 +29,6 @@ BuildRequires:  perl(bytes)
 BuildRequires:  perl(Carp)
 BuildRequires:  perl(Compress::Raw::Bzip2) >= %{version}
 BuildRequires:  perl(Compress::Raw::Zlib) >= %{version}
-BuildRequires:  perl(Config)
 BuildRequires:  perl(constant)
 BuildRequires:  perl(Encode)
 BuildRequires:  perl(Exporter)
@@ -94,7 +94,7 @@ chmod -c -x lib/IO/Uncompress/{Adapter/Identity,RawInflate}.pm
 find examples -type f -exec chmod -c -x {} \;
 
 # Fix shellbangs in examples
-perl -pi -e 's|^#!/usr/local/bin/perl\b|#!%{__perl}|' examples/io/anycat \
+perl -MConfig -pi -e 's|^#!/usr/local/bin/perl\b|$Config{startperl}|' examples/io/anycat \
         examples/io/bzip2/* examples/io/gzip/* examples/compress-zlib/*
 
 %build
@@ -138,6 +138,9 @@ make test COMPRESS_ZLIB_RUN_%{?with_long_tests:ALL}%{!?with_long_tests:MOST}=1
 %{_mandir}/man3/IO::Uncompress::*.3*
 
 %changelog
+* Mon Dec 18 2017 Petr Pisar <ppisar@redhat.com> - 2.074-396
+- Rewrite shell bangs using running perl
+
 * Thu Jul 27 2017 Fedora Release Engineering <releng@fedoraproject.org> - 2.074-395
 - Rebuilt for https://fedoraproject.org/wiki/Fedora_27_Mass_Rebuild