35 lines
978 B
Perl
35 lines
978 B
Perl
--- Build.PL~ Wed Feb 18 19:54:38 2004
|
|
+++ Build.PL Wed Oct 13 15:37:16 2004
|
|
@@ -45,8 +45,6 @@
|
|
my $default = $config->{mason_web_dir};
|
|
$default =~ s,/alzabo\Z,, if $default;
|
|
|
|
- do
|
|
- {
|
|
print "\n *** The directory you selected does not exist ***\n"
|
|
if defined $config->{mason_web_dir} && ! -d $config->{mason_web_dir};
|
|
|
|
@@ -61,11 +59,7 @@
|
|
server's document root will work.
|
|
EOF
|
|
|
|
- $config->{mason_web_dir} =
|
|
- Module::Build->prompt( ' Mason directory?', $default || '' );
|
|
- } while ( ! -d $config->{mason_web_dir} );
|
|
-
|
|
- $config->{mason_web_dir} = File::Spec->catdir( $config->{mason_web_dir}, 'alzabo' );
|
|
+ $config->{mason_web_dir} = $ENV{DATADIR};
|
|
|
|
print <<'EOF';
|
|
|
|
@@ -76,9 +70,7 @@
|
|
EOF
|
|
|
|
|
|
- $config->{mason_extension} =
|
|
- Module::Build->prompt( ' Mason component file extension?',
|
|
- $config->{mason_extension} || '.mhtml' );
|
|
+ $config->{mason_extension} = '.mhtml';
|
|
|
|
write_config_module($config);
|
|
}
|