In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/9f28af372a4d984772308b4168df9e439f19ca5e?hp=7e3136378328f90878eb7873a7a3197897e68253>
- Log ----------------------------------------------------------------- commit 9f28af372a4d984772308b4168df9e439f19ca5e Author: Father Chrysostomos <[email protected]> Date: Sat Sep 22 13:17:20 2012 -0700 Add a #! line to config_h.SH It will get one automatically the next time config_h.pl is run, but that time hasnât come yet. :-) M config_h.SH commit 6551c42c6e7c8aa2cd0eb3aaaec900dd7f4dc703 Author: Sawyer X <[email protected]> Date: Sat Sep 22 16:12:26 2012 +0300 add to authors M AUTHORS commit 1f00b0d68b2ebb8ceb0fa6a2ac68f41b2a0203c8 Author: Sawyer X <[email protected]> Date: Sat Sep 22 15:48:09 2012 +0300 add shebangs where missing M Makefile.SH M Policy_sh.SH M Porting/Maintainers.pl M cflags.SH M myconfig.SH M regen/regcharclass.pl M runtests.SH M x2p/Makefile.SH M x2p/cflags.SH commit 67f552ad8995545cbbefd32a85ca93d9d1345940 Author: Sawyer X <[email protected]> Date: Fri Sep 21 03:44:38 2012 +0300 test for files that have exec bit but no shebang M t/porting/exec-bit.t ----------------------------------------------------------------------- Summary of changes: AUTHORS | 1 + Makefile.SH | 2 ++ Policy_sh.SH | 2 ++ Porting/Maintainers.pl | 1 + cflags.SH | 2 ++ config_h.SH | 2 ++ myconfig.SH | 2 ++ regen/regcharclass.pl | 1 + runtests.SH | 2 ++ t/porting/exec-bit.t | 12 ++++++++++++ x2p/Makefile.SH | 2 ++ x2p/cflags.SH | 2 ++ 12 files changed, 31 insertions(+), 0 deletions(-) diff --git a/AUTHORS b/AUTHORS index 6822667..0a72149 100644 --- a/AUTHORS +++ b/AUTHORS @@ -980,6 +980,7 @@ Sam Tregar <[email protected]> Sam Vilain <[email protected]> Samuel Thibault <[email protected]> Samuli Kärkkäinen <[email protected]> +Sawyer X <[email protected]> Schuyler Erle <[email protected]> Scott A Crosby <[email protected]> Scott Bronson <[email protected]> diff --git a/Makefile.SH b/Makefile.SH index f83288e..f6a54f5 100755 --- a/Makefile.SH +++ b/Makefile.SH @@ -1,3 +1,5 @@ +#!/bin/sh + case $PERL_CONFIG_SH in '') if test -f config.sh diff --git a/Policy_sh.SH b/Policy_sh.SH index cc310dd..1c99255 100755 --- a/Policy_sh.SH +++ b/Policy_sh.SH @@ -1,3 +1,5 @@ +#!/bin/sh + case $PERL_CONFIG_SH in '') . ./config.sh ;; esac diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index e107f71..c9b4752 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -1,3 +1,4 @@ +#!perl # A simple listing of core files that have specific maintainers, # or at least someone that can be called an "interested party". # Also, a "module" does not necessarily mean a CPAN module, it diff --git a/cflags.SH b/cflags.SH index 6420bf3..899c465 100755 --- a/cflags.SH +++ b/cflags.SH @@ -1,3 +1,5 @@ +#!/bin/sh + case $PERL_CONFIG_SH in '') if test -f config.sh; then TOP=.; diff --git a/config_h.SH b/config_h.SH index 3267fee..dfb57b5 100755 --- a/config_h.SH +++ b/config_h.SH @@ -1,3 +1,5 @@ +#!/bin/sh +# # THIS IS A GENERATED FILE # DO NOT HAND-EDIT # diff --git a/myconfig.SH b/myconfig.SH index f5b432a..eafc458 100755 --- a/myconfig.SH +++ b/myconfig.SH @@ -1,3 +1,5 @@ +#!/bin/sh + case $PERL_CONFIG_SH in '') if test -f config.sh; then TOP=.; diff --git a/regen/regcharclass.pl b/regen/regcharclass.pl index 7d12642..b22a8a9 100755 --- a/regen/regcharclass.pl +++ b/regen/regcharclass.pl @@ -1,3 +1,4 @@ +#!perl package CharClass::Matcher; use strict; use 5.008; diff --git a/runtests.SH b/runtests.SH index bab27e9..24e1ffa 100755 --- a/runtests.SH +++ b/runtests.SH @@ -1,3 +1,5 @@ +#!/bin/sh + case $PERL_CONFIG_SH in '') if test ! -f config.sh; then diff --git a/t/porting/exec-bit.t b/t/porting/exec-bit.t index 84a0b0a..1deb376 100644 --- a/t/porting/exec-bit.t +++ b/t/porting/exec-bit.t @@ -5,6 +5,16 @@ use strict; # This test checks that anything with an executable bit is # identified in Porting/exec-bit.txt to makerel will set # the exe bit in the release tarball +# and that anything with an executable bit also has a shebang + +sub has_shebang { + my $fname = shift; + open my $fh, '<', $fname or die "Can't open '$fname': $!"; + my $line = <$fh>; + close $fh; + + return $line =~ /^\#!\s*([A-Za-z0-9_\-\/\.])+\s?/ ? 1 : 0; +} require './test.pl'; if ( $^O eq "MSWin32" ) { @@ -40,6 +50,8 @@ my @manifest = sort keys %{ maniread("../MANIFEST") }; for my $f ( map { "../$_" } @manifest ) { next unless -x $f; + ok( has_shebang($f), "File $f has shebang" ); + ok( $exe_list{$f}, "tarball will chmod +x $f" ) or diag( "Remove the exec bit or add '$f' to Porting/exec-bit.txt" ); diff --git a/x2p/Makefile.SH b/x2p/Makefile.SH index 1df26d5..3f16623 100755 --- a/x2p/Makefile.SH +++ b/x2p/Makefile.SH @@ -1,3 +1,5 @@ +#!/bin/sh + case $PERL_CONFIG_SH in '') if test -f config.sh; then TOP=.; diff --git a/x2p/cflags.SH b/x2p/cflags.SH index 255f586..caeb336 100755 --- a/x2p/cflags.SH +++ b/x2p/cflags.SH @@ -1,3 +1,5 @@ +#!/bin/sh + case $PERL_CONFIG_SH in '') if test -f config.sh; then TOP=.; -- Perl5 Master Repository
