From ed2e433cce0bb74f39d80f6bc16a13d1b4807df4 Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Tue, 29 Oct 2002 09:07:39 +0000
Subject: prinf "a b c" -> a, b, c

---
 fml/lib/FML/Command/Admin/newml.pm | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'fml')

diff --git a/fml/lib/FML/Command/Admin/newml.pm b/fml/lib/FML/Command/Admin/newml.pm
index 601b284c..f1ec6d2d 100644
--- a/fml/lib/FML/Command/Admin/newml.pm
+++ b/fml/lib/FML/Command/Admin/newml.pm
@@ -4,7 +4,7 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: newml.pm,v 1.51 2002/09/15 00:11:43 fukachan Exp $
+# $FML: newml.pm,v 1.52 2002/09/22 14:56:45 fukachan Exp $
 #
 
 package FML::Command::Admin::newml;
@@ -148,7 +148,7 @@ sub _init_ml_home_dir
     my $dirlist = $config->get_as_array_ref('newml_command_init_dirs');
     for my $_dir (@$dirlist) {
 	unless (-d $_dir) {
-	    print STDERR "creating $_dir\n";
+	    print STDERR "creating ", $_dir, "\n";
 	    $curproc->mkdir( $_dir, "mode=public");
 	}
     }
@@ -177,7 +177,7 @@ sub _install_template_files
 	my $src = File::Spec->catfile($template_dir, $file);
 	my $dst = File::Spec->catfile($ml_home_dir, $file);
 
-	print STDERR "creating $dst\n";
+	print STDERR "creating ", $dst, "\n";
 	_install($src, $dst, $params);
     }
 
@@ -282,7 +282,7 @@ sub _setup_mail_archive_dir
     my $dir    = $config->{ html_archive_dir };
 
     unless (-d $dir) {
-	print STDERR "creating $dir\n";
+	print STDERR "creating ", $dir, "\n";
 	$curproc->mkdir($dir, "mode=public");
     }
 }
@@ -311,7 +311,7 @@ sub _setup_cgi_interface
     my $ml_admin_cgi_dir = $config->{ ml_admin_cgi_base_dir };
     for my $dir ($cgi_base_dir, $admin_cgi_dir, $ml_admin_cgi_dir) {
 	unless (-d $dir) {
-	    print STDERR "creating $dir\n";
+	    print STDERR "creating ", $dir, "\n";
 	    $is_dir_exists{ $dir } = 0;
 	    $curproc->mkdir($dir, "mode=public");
 	}
@@ -329,7 +329,7 @@ sub _setup_cgi_interface
 	my $src   = File::Spec->catfile($template_dir, 'dot_htaccess');
 	my $dst   = File::Spec->catfile($cgi_base_dir, '.htaccess');
 
-	print STDERR "creating $dst\n";
+	print STDERR "creating ", $dst, "\n";
 	print STDERR "         (a dummy to disable cgi by default)\n";
 	_install($src, $dst, $params);
     }
@@ -359,7 +359,7 @@ sub _setup_cgi_interface
 		   File::Spec->catfile($admin_cgi_dir, 'config.cgi'),
 		   File::Spec->catfile($admin_cgi_dir, 'thread.cgi')
 		     ) {
-	    print STDERR "creating $dst\n";
+	    print STDERR "creating ", $dst, "\n";
 	    _install($src, $dst, $params);
 	    chmod 0755, $dst;
 	}
@@ -419,7 +419,7 @@ sub _setup_listinfo
 	    my $src   = File::Spec->catfile($template_dir, $file);
 	    my $dst   = File::Spec->catfile($listinfo_dir, $file);
 
-	    print STDERR "creating $dst\n";
+	    print STDERR "creating ", $dst, "\n";
 	    _install($src, $dst, $params);
 	}
     }
-- 
cgit v1.2.1