From a18c864b8145cfaf097d37f9d9fda005efbb0321 Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Tue, 11 Dec 2001 15:38:01 +0000
Subject: ensure installed file mode to be 0644

---
 fml/lib/FML/Command/Admin/newml.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/fml/lib/FML/Command/Admin/newml.pm b/fml/lib/FML/Command/Admin/newml.pm
index 20aac5ce..0561e9e2 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.4 2001/12/09 12:52:24 fukachan Exp $
+# $FML: newml.pm,v 1.5 2001/12/09 14:52:34 fukachan Exp $
 #
 
 package FML::Command::Admin::newml;
@@ -97,6 +97,8 @@ sub _install
     my $out = new FileHandle "> $dst.$$";
 
     if (defined $in && defined $out) {
+	chmod 0644, "$dst.$$";
+
 	&FML::Config::Convert::convert($in, $out, $config);
 
 	$out->close();
-- 
cgit v1.2.1