summaryrefslogtreecommitdiffstats
path: root/perl-install/partition_table/lvm_PV.pm
diff options
context:
space:
mode:
authorPablo Saratxaga <pablo@mandriva.com>2003-02-03 17:23:31 +0000
committerPablo Saratxaga <pablo@mandriva.com>2003-02-03 17:23:31 +0000
commit6b4b7042d32aaa37527776143214e4cafc4fb0c3 (patch)
tree877fc3d14633b6671d2c1c81ebea4db09a1090a1 /perl-install/partition_table/lvm_PV.pm
parentc81c876244eb50d5e8dd8a46a6828b7179231b6e (diff)
downloaddrakx-6b4b7042d32aaa37527776143214e4cafc4fb0c3.tar
drakx-6b4b7042d32aaa37527776143214e4cafc4fb0c3.tar.gz
drakx-6b4b7042d32aaa37527776143214e4cafc4fb0c3.tar.bz2
drakx-6b4b7042d32aaa37527776143214e4cafc4fb0c3.tar.xz
drakx-6b4b7042d32aaa37527776143214e4cafc4fb0c3.zip
updated pot file
Diffstat (limited to 'perl-install/partition_table/lvm_PV.pm')
0 files changed, 0 insertions, 0 deletions
/drakx/tree/perl-install/network/smb.pm?h=17.79&id=af7f9c869b7faf1ce0f0aba6d07aeabfcfed2943'>perl-install/network/smb.pm
+++ b/perl-install/network/smb.pm
@@ -131,14 +131,14 @@ sub remove_bad_credentials {
sub save_credentials {
my ($credentials) = @_;
my $file = $credentials->{file};
- output($file, map { "$_ = $credentials->{$_}\n" } qw(username domain password));
- chmod(0640, $file);
+ output_p($file, map { "$_ = $credentials->{$_}\n" } qw(username domain password));
+ chmod(0640, "$::prefix$file");
}
sub read_credentials_raw {
my ($file) = @_;
- my %h = map { /(.*?)\s*=\s*(.*)/ } cat_($file);
+ my %h = map { /(.*?)\s*=\s*(.*)/ } cat_("$::prefix$file");
\%h;
}