diff options
author | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-12-05 04:21:13 +0000 |
---|---|---|
committer | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-12-05 04:21:13 +0000 |
commit | a4183b2fdd19d83c7705c423623c117c4118860f (patch) | |
tree | deea607f3e64d2f73156138f7bee96e234c32598 /LedgerSMB/AM.pm | |
parent | 6eb1b88d9ac9fde4efca4668b99d9628f0a9cd10 (diff) |
Converting 2-arg open to 3-arg open
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@719 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB/AM.pm')
-rwxr-xr-x | LedgerSMB/AM.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/LedgerSMB/AM.pm b/LedgerSMB/AM.pm index 15558597..b3050c05 100755 --- a/LedgerSMB/AM.pm +++ b/LedgerSMB/AM.pm @@ -1278,7 +1278,7 @@ sub load_template { my ($self, $myconfig, $form) = @_; $self->check_template_name(\%$myconfig, \%$form); - open(TEMPLATE, "$form->{file}") or $form->error("$form->{file} : $!"); + open(TEMPLATE, '<', "$form->{file}") or $form->error("$form->{file} : $!"); while (<TEMPLATE>) { $form->{body} .= $_; @@ -1294,7 +1294,7 @@ sub save_template { my ($self, $myconfig, $form) = @_; $self->check_template_name(\%$myconfig, \%$form); - open(TEMPLATE, ">$form->{file}") or $form->error("$form->{file} : $!"); + open(TEMPLATE, '>', "$form->{file}") or $form->error("$form->{file} : $!"); # strip
$form->{body} =~ s/\r//g; @@ -1606,9 +1606,9 @@ sub backup { my $boundary = time; my $tmpfile = "${LedgerSMB::Sysconfig::userspath}/$boundary.$myconfig->{dbname}-$form->{dbversion}-$t[5]$t[4]$t[3].sql"; $tmpfile .= ".gz" if ${LedgerSMB::Sysconfig::gzip}; - $form->{OUT} = ">$tmpfile"; + $form->{OUT} = "$tmpfile"; - open(OUT, "$form->{OUT}") or $form->error("$form->{OUT} : $!"); + open(OUT, '>', "$form->{OUT}") or $form->error("$form->{OUT} : $!"); # get sequences, functions and triggers @@ -1649,7 +1649,7 @@ sub backup { if ($form->{media} eq 'file') { - open(IN, "$tmpfile") or $form->error("$tmpfile : $!"); + open(IN, '<', "$tmpfile") or $form->error("$tmpfile : $!"); open(OUT, ">-") or $form->error("STDOUT : $!"); print OUT qq|Content-Type: application/file;\n| . |