This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
locale.c: Let static fcn take a NULL argument
[perl5.git]
/
configpm
diff --git
a/configpm
b/configpm
index
ebbaaa9
..
2fda5a5
100755
(executable)
--- a/
configpm
+++ b/
configpm
@@
-35,7
+35,7
@@
usage: $0 [ options ]
EOF
use strict;
EOF
use strict;
-
use vars qw(%Config
$Config_SH_expanded);
+
our (%Config,
$Config_SH_expanded);
my $how_many_common = 22;
my $how_many_common = 22;
@@
-155,7
+155,7
@@
$config_txt .= sprintf << 'EOT', $], $export_funcs;
package Config;
use strict;
use warnings;
package Config;
use strict;
use warnings;
-
use vars '%%Config', '$VERSION'
;
+
our ( %%Config, $VERSION )
;
$VERSION = "%s";
$VERSION = "%s";
@@
-332,7
+332,7
@@
die if $@;
# Calculation for the keys for byteorder
# This is somewhat grim, but I need to run fetch_string here.
# Calculation for the keys for byteorder
# This is somewhat grim, but I need to run fetch_string here.
-
our
$Config_SH_expanded = join "\n", '', @v_others;
+$Config_SH_expanded = join "\n", '', @v_others;
my $t = fetch_string ({}, 'ivtype');
my $s = fetch_string ({}, 'ivsize');
my $t = fetch_string ({}, 'ivtype');
my $s = fetch_string ({}, 'ivsize');
@@
-469,7
+469,7
@@
$heavy_txt .= sprintf <<'ENDOFBEG', $osname, $osname, $from, $osname, $env_cygwi
package Config;
use strict;
use warnings;
package Config;
use strict;
use warnings;
-
use vars '%%Config'
;
+
our %%Config
;
sub bincompat_options {
return split ' ', (Internals::V())[0];
sub bincompat_options {
return split ' ', (Internals::V())[0];