Rewrite script interpreters correctly

perl-Sub-Identify.spec

@@ -3,7 +3,7 @@
 
 Name:		perl-Sub-Identify
 Version:	0.14
-Release:	4%{?dist}
+Release:	5%{?dist}
 Summary:	Retrieve names of code references
 License:	GPL+ or Artistic
 URL:		http://search.cpan.org/dist/Sub-Identify/
@@ -16,6 +16,7 @@ BuildRequires:	make
 BuildRequires:	perl-interpreter
 BuildRequires:	perl-devel
 BuildRequires:	perl-generators
+BuildRequires:	perl(Config)
 BuildRequires:	perl(ExtUtils::MakeMaker)
 # Module Runtime
 BuildRequires:	perl(B)
@@ -50,7 +51,7 @@ this, it uses Perl's introspection mechanism, provided by the B module.
 %setup -q -n Sub-Identify-%{version}
 
 # Fix script interpreters
-perl -pi -e 's|^#!perl|#!/usr/bin/perl|' t/*
+perl -MConfig -pi -e 's|^#!perl|$Config{startperl}|' t/*
 
 %build
 perl Makefile.PL INSTALLDIRS=vendor OPTIMIZE="%{optflags}"
@@ -72,6 +73,9 @@ make test
 %{_mandir}/man3/Sub::Identify.3*
 
 %changelog
+* Fri Dec 15 2017 Petr Pisar <ppisar@redhat.com> - 0.14-5
+- Rewrite script interpreters correctly
+
 * Thu Aug 03 2017 Fedora Release Engineering <releng@fedoraproject.org> - 0.14-4
 - Rebuilt for https://fedoraproject.org/wiki/Fedora_27_Binutils_Mass_Rebuild