mirror of
https://github.com/git/git
synced 2024-08-27 11:39:22 +00:00
Merge branch 'es/check-non-portable-pre-5.10'
Developer support update. * es/check-non-portable-pre-5.10: check-non-portable-shell: support Perl versions older than 5.10
This commit is contained in:
commit
dd5b7dc8ed
|
@ -27,14 +27,14 @@ sub err {
|
|||
close $f;
|
||||
}
|
||||
|
||||
my $line = '';
|
||||
while (<>) {
|
||||
chomp;
|
||||
$line .= $_;
|
||||
# stitch together incomplete lines (those ending with "\")
|
||||
while (s/\\$//) {
|
||||
$_ .= readline;
|
||||
chomp;
|
||||
}
|
||||
next if $line =~ s/\\$//;
|
||||
|
||||
$_ = $line;
|
||||
/\bcp\s+-a/ and err 'cp -a is not portable';
|
||||
/\bsed\s+-[^efn]\s+/ and err 'sed option not portable (use only -n, -e, -f)';
|
||||
/\becho\s+-[neE]/ and err 'echo with option is not portable (use printf)';
|
||||
|
@ -48,6 +48,7 @@ sub err {
|
|||
/\bexport\s+[A-Za-z0-9_]*=/ and err '"export FOO=bar" is not portable (use FOO=bar && export FOO)';
|
||||
/^\s*([A-Z0-9_]+=(\w+|(["']).*?\3)\s+)+(\w+)/ and exists($func{$4}) and
|
||||
err '"FOO=bar shell_func" assignment extends beyond "shell_func"';
|
||||
$line = '';
|
||||
# this resets our $. for each file
|
||||
close ARGV if eof;
|
||||
}
|
||||
|
|
Loading…
Reference in a new issue