summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/ExtUtils/Constant.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/ExtUtils/Constant.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/ExtUtils/Constant.pm6
1 files changed, 4 insertions, 2 deletions
diff --git a/Master/tlpkg/tlperl/lib/ExtUtils/Constant.pm b/Master/tlpkg/tlperl/lib/ExtUtils/Constant.pm
index 0a20b89b792..0dc925873dc 100644
--- a/Master/tlpkg/tlperl/lib/ExtUtils/Constant.pm
+++ b/Master/tlpkg/tlperl/lib/ExtUtils/Constant.pm
@@ -1,6 +1,6 @@
package ExtUtils::Constant;
use vars qw (@ISA $VERSION @EXPORT_OK %EXPORT_TAGS);
-$VERSION = 0.22;
+$VERSION = 0.23;
=head1 NAME
@@ -494,6 +494,9 @@ sub WriteConstants {
croak "Module name not specified" unless length $ARGS{NAME};
+ # Do this before creating (empty) files, in case it fails:
+ require ExtUtils::Constant::ProxySubs if $ARGS{PROXYSUBS};
+
my $c_fh = $ARGS{C_FH};
if (!$c_fh) {
if ($] <= 5.008) {
@@ -522,7 +525,6 @@ sub WriteConstants {
# names.
if ($ARGS{PROXYSUBS}) {
- require ExtUtils::Constant::ProxySubs;
$ARGS{C_FH} = $c_fh;
$ARGS{XS_FH} = $xs_fh;
ExtUtils::Constant::ProxySubs->WriteConstants(%ARGS);