Changeset 32 for Makefile.PL

Timestamp:

02/16/05 18:48:28 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

1041

Message:

* Code literals -- "sub", "pointy" and "bare" variants all works
* Lexical subroutine declarations via "my sub"
* Global subroutine and variables work again, via the envGlobal pad
* The "say", "exit", "die" primitives
* Bool.perl now prints correct literals (lwall)
* Blocks under void contexts now evaluates automatically
* The "..." (dotdotdot) literal

Files:

• Makefile.PL (modified) (4 diffs)

Makefile.PL

@@ -3 +3 @@
 use strict;
 use FindBin;
+use File::Spec;
 use Config;
 use inc::Module::Install;
 
 chdir $FindBin::Bin;
+my $pugs = File::Spec->catfile($FindBin::Bin, "pugs$Config{_exe}");
 
 name            ('Perl6-Pugs');
@@ -13 +15 @@
 author          ('Autrijus Tang <autrijus@autrijus.org>');
 license         ('perl');
-install_script  ("pugs$Config{_exe}");
+install_script  ($pugs);
 build_requires  ('Test::More');
 
@@ -67 +69 @@
 
 postamble(<< ".");
-pugs$Config{_exe}: @{[glob("src/*.hs")]}
-        ghc --make -o pugs -O src/Main.hs -isrc
+$pugs: @{[glob("src/*.hs")]}
+        ghc --make -o pugs src/Main.hs -isrc
 
 tags ::
@@ -75 +77 @@
 
 WriteAll( sign => 1 );
+
+# FIXUP
+open MAKEFILE, '< Makefile' or die $!;
+my $makefile = do { local $/; <MAKEFILE> };
+$makefile =~ s/\b(test_harness\(\$\(TEST_VERBOSE\), )/ENV->{HARNESS_PERL} = '$pugs'; $1/;
+close MAKEFILE;
+open MAKEFILE, '> Makefile' or die $!;
+print MAKEFILE $makefile;
+close MAKEFILE;