diff options
| author | Peter Eisentraut | 2016-12-04 17:00:00 +0000 |
|---|---|---|
| committer | Peter Eisentraut | 2017-01-05 17:34:48 +0000 |
| commit | 933b46644c787ed0b763532951961361e9304095 (patch) | |
| tree | 1c739f122fd27ed237f1bdebdb3066b3ad99d3ab /src/tools/msvc | |
| parent | 175ff6598e014b2fe84c06fa443161294fc2eed0 (diff) | |
Use 'use strict' in all Perl programs
Diffstat (limited to 'src/tools/msvc')
| -rw-r--r-- | src/tools/msvc/build.pl | 4 | ||||
| -rw-r--r-- | src/tools/msvc/gendef.pl | 6 | ||||
| -rw-r--r-- | src/tools/msvc/pgflex.pl | 6 |
3 files changed, 9 insertions, 7 deletions
diff --git a/src/tools/msvc/build.pl b/src/tools/msvc/build.pl index a5469cd2898..2e7c54853a6 100644 --- a/src/tools/msvc/build.pl +++ b/src/tools/msvc/build.pl @@ -2,6 +2,8 @@ # src/tools/msvc/build.pl +use strict; + BEGIN { @@ -68,6 +70,6 @@ else # report status -$status = $? >> 8; +my $status = $? >> 8; exit $status; diff --git a/src/tools/msvc/gendef.pl b/src/tools/msvc/gendef.pl index a6c43c2c392..3bcff7ffaf6 100644 --- a/src/tools/msvc/gendef.pl +++ b/src/tools/msvc/gendef.pl @@ -1,11 +1,11 @@ -my @def; - -use warnings; use strict; +use warnings; use 5.8.0; use File::Spec::Functions qw(splitpath catpath); use List::Util qw(max); +my @def; + # # Script that generates a .DEF file for all objects in a directory # diff --git a/src/tools/msvc/pgflex.pl b/src/tools/msvc/pgflex.pl index 474ce63e5ca..3a42add0d29 100644 --- a/src/tools/msvc/pgflex.pl +++ b/src/tools/msvc/pgflex.pl @@ -2,12 +2,12 @@ # src/tools/msvc/pgflex.pl -# silence flex bleatings about file path style -$ENV{CYGWIN} = 'nodosfilewarning'; - use strict; use File::Basename; +# silence flex bleatings about file path style +$ENV{CYGWIN} = 'nodosfilewarning'; + # assume we are in the postgres source root require 'src/tools/msvc/buildenv.pl' if -e 'src/tools/msvc/buildenv.pl'; |