On Tue, Mar 26, 2002 at 02:04:57PM -0600, Craig A. Berry wrote:
> At 01:55 PM 3/26/2002 -0500, Michael G Schwern wrote:
> >Try this.  It also includes the suggestion about makemakerdflt.
> >
> >--- lib/ExtUtils/MM_VMS.pm      25 Mar 2002 07:28:24 -0000      1.9
> >+++ lib/ExtUtils/MM_VMS.pm      26 Mar 2002 18:53:59 -0000
> 
> 
> Well, you need this on top of it.  Otherwise you print the contents of the 
> $( variable and also run into trouble because NOECHO isn't defined until 
> later.  Yes, I know, NOOP isn't defined until later either.  See explanation 
> below.

Gotcha.  I've moved the NOOP and NOECHO definitions into init_main()
so they're in place really early on.  This patch against 5.52_01
should be good.

I've also got my hands on a VMS machine with MMS.  I need to Unixify
it a bit, but I should be able to see these problems for myself soon.

Pull a fresh version from CVS if you can so we're both talking the
same language.
cvs -d :pserver:[EMAIL PROTECTED]:/home/schwern/cvs login
cvs -d :pserver:[EMAIL PROTECTED]:/home/schwern/cvs co ExtUtils-MakeMaker


--- lib/ExtUtils/MM_VMS.pm      25 Mar 2002 07:28:24 -0000      1.9
+++ lib/ExtUtils/MM_VMS.pm      26 Mar 2002 20:16:26 -0000
@@ -430,7 +430,7 @@
              PERL_ARCHLIB SITELIBEXP SITEARCHEXP LIBPERL_A MYEXTLIB
              FIRST_MAKEFILE MAKE_APERL_FILE PERLMAINCC PERL_SRC PERL_VMS
              PERL_INC PERL FULLPERL PERLRUN PERLRUNINST TEST_LIBS 
-             PERL_CORE
+             PERL_CORE NOECHO NOOP
              / ) {
        next unless defined $self->{$macro};
        push @m, "$macro = $self->{$macro}\n";
@@ -508,6 +508,7 @@
 
 push @m,"
 makemakerdflt : all
+       \$(NOECHO) \$(NOOP)
 
 .SUFFIXES :
 .SUFFIXES : \$(OBJ_EXT) .c .cpp .cxx .xs
@@ -907,8 +908,6 @@
 RM_RF = $self->{RM_RF}
 SAY = Write Sys\$Output
 UMASK_NULL = $self->{UMASK_NULL}
-NOOP = $self->{NOOP}
-NOECHO = $self->{NOECHO}
 MKPATH = Create/Directory
 EQUALIZE_TIMESTAMP = \$(PERL) -we "open F,qq{>\$ARGV[1]};close 
F;utime(0,(stat(\$ARGV[0]))[9]+1,\$ARGV[1])"
 !. ($self->{PARENT} ? '' : 
@@ -1347,9 +1346,6 @@
     @to = values %fromto;
     push @m, "
 EXE_FILES = @exefiles
-
-all :: @to
-       \$(NOECHO) \$(NOOP)
 
 realclean ::
 ";
--- lib/ExtUtils/MM_Unix.pm     26 Mar 2002 17:05:26 -0000      1.17
+++ lib/ExtUtils/MM_Unix.pm     26 Mar 2002 20:11:53 -0000
@@ -483,7 +483,7 @@
              PERL_ARCHLIB SITELIBEXP SITEARCHEXP LIBPERL_A MYEXTLIB
              FIRST_MAKEFILE MAKE_APERL_FILE PERLMAINCC PERL_SRC
              PERL_INC PERL FULLPERL PERLRUN PERLRUNINST TEST_LIBS 
-              FULL_AR PERL_CORE
+              FULL_AR PERL_CORE NOOP NOECHO
 
              / ) {
        next unless defined $self->{$tmp};



-- 

Michael G. Schwern   <[EMAIL PROTECTED]>    http://www.pobox.com/~schwern/
Perl Quality Assurance      <[EMAIL PROTECTED]>         Kwalitee Is Job One
    And God created Cat to be a companion to Adam.  And Cat would not obey
Adam.  And when Adam gazed into Cat's eyes, he was reminded that he
was not the supreme being.  And Adam learned humility.
        -- http://www.catsarefrommars.com/creationist.htm

Reply via email to