cvsuser 03/07/14 03:32:47
Modified: config/auto env.pl
Log:
Win32 has unsetenv
Revision Changes Path
1.2 +16 -11 parrot/config/auto/env.pl
Index: env.pl
===================================================================
RCS file: /cvs/public/parrot/config/auto/env.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -r1.1 -r1.2
--- env.pl 14 Jul 2003 07:58:06 -0000 1.1
+++ env.pl 14 Jul 2003 10:32:47 -0000 1.2
@@ -9,19 +9,24 @@
sub runstep {
my ($setenv, $unsetenv) = (0, 0);
+ if ($^O eq 'Win32') {
+ $setenv = 1;
+ $unsetenv = 1;
+ }
+ else {
cc_gen('config/auto/env/test_setenv.in');
eval { cc_build(); };
unless ($@ || cc_run() !~ /ok/) {
$setenv = 1;
}
cc_clean();
-
cc_gen('config/auto/env/test_unsetenv.in');
eval { cc_build(); };
unless ($@ || cc_run() !~ /ok/) {
$unsetenv = 1;
}
cc_clean();
+ }
Configure::Data->set(
setenv => $setenv,
