diff options
author | giraffedata <giraffedata@9d0c8265-081b-0410-96cb-a4ca84ce46f8> | 2007-01-05 00:27:10 +0000 |
---|---|---|
committer | giraffedata <giraffedata@9d0c8265-081b-0410-96cb-a4ca84ce46f8> | 2007-01-05 00:27:10 +0000 |
commit | af340542328c8d9d10179e72b7e0db510ddbbe7b (patch) | |
tree | 843260474dadf8f76b13ea38d6676aa737d4e484 | |
parent | d601138f5dbb85bd239e2b0cef3cfe80ba3856de (diff) | |
download | netpbm-mirror-af340542328c8d9d10179e72b7e0db510ddbbe7b.tar.gz netpbm-mirror-af340542328c8d9d10179e72b7e0db510ddbbe7b.tar.xz netpbm-mirror-af340542328c8d9d10179e72b7e0db510ddbbe7b.zip |
Switch 3-argument open() to 2-argument open() for old Perl
git-svn-id: http://svn.code.sf.net/p/netpbm/code/trunk@194 9d0c8265-081b-0410-96cb-a4ca84ce46f8
-rwxr-xr-x | buildtools/installnetpbm.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/buildtools/installnetpbm.pl b/buildtools/installnetpbm.pl index 5987ea8b..f6ab7ca0 100755 --- a/buildtools/installnetpbm.pl +++ b/buildtools/installnetpbm.pl @@ -829,7 +829,7 @@ installConfig($$$$$$$) { my $configTemplateFilename = dirname($0) . "/config_template"; - my $templateOpened = open(TEMPLATE, "<", $configTemplateFilename); + my $templateOpened = open(TEMPLATE, "<$configTemplateFilename"); if (!$templateOpened) { $error = "Can't open template file '$configTemplateFilename'.\n"; } else { @@ -837,7 +837,7 @@ installConfig($$$$$$$) { close(TEMPLATE); - my $versionOpened = open(VERSION, "<", "$pkgdir/VERSION"); + my $versionOpened = open(VERSION, "<$pkgdir/VERSION"); my $version; if (!$versionOpened) { @@ -859,7 +859,7 @@ installConfig($$$$$$$) { my $filename = "$bindir/netpbm-config"; - my $success = open(NETPBM_CONFIG, ">", $filename); + my $success = open(NETPBM_CONFIG, ">$filename"); if ($success) { chmod(0755, $filename); foreach (@{$fileContentsR}) { print NETPBM_CONFIG; } |