We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 27e7aaa commit ec66b5bCopy full SHA for ec66b5b
win32/config_h.PL
@@ -1,13 +1,7 @@
1
#!perl -w
2
use strict;
3
4
-BEGIN { warn "Running ".__FILE__."\n" };
5
-BEGIN
6
- {
7
- require "Config.pm";
8
- die "Config.pm:$@" if $@;
9
- Config->import;
10
- }
+use Config;
11
use File::Compare qw(compare);
12
use File::Copy qw(copy);
13
use File::Basename qw(fileparse);
@@ -25,8 +19,6 @@ $opt{CONFIG_H} ||= 'config.h';
25
19
$opt{CORE_DIR} ||= '../lib/CORE';
26
20
$opt{CORE_CONFIG_H} ||= $opt{CORE_DIR} . '/config.h';
27
21
28
-warn "Writing $opt{CONFIG_H}\n";
29
-
30
22
open(SH, "<", $name) || die "Cannot open $name:$!";
31
23
while (<SH>)
32
24
{
0 commit comments