Improve sharpbang fix

perl-Archive-Zip.spec

@@ -65,8 +65,11 @@ existing Zip files, or from existing directories, files, or strings.
 %prep
 %setup -q -n Archive-Zip-%{version}
 %patch0 -p1
-perl -pi -e 's|^#!/bin/perl|#!%{__perl}|' examples/*.pl
-perl -pi -e 's|^#!/usr/local/bin/perl|#!%{__perl}|' examples/selfex.pl
+perl -MConfig -pi -e 's|^#!/usr/local/bin/perl|$Config{startperl}|' \
+    examples/selfex.pl
+for F in examples/*.pl; do
+    perl -MExtUtils::MakeMaker -e "ExtUtils::MM_Unix->fixin(q{$F})"
+done
 
 
 %build
@@ -94,6 +97,7 @@ make test
 %changelog
 * Thu Jan 15 2015 Petr Pisar <ppisar@redhat.com> - 1.39-2
 - Correct dependencies
+- Improve sharpbang fix
 
 * Wed Oct 22 2014 Jitka Plesnikova <jplesnik@redhat.com> - 1.39-1
 - 1.39 bump