From af340542328c8d9d10179e72b7e0db510ddbbe7b Mon Sep 17 00:00:00 2001
From: giraffedata <giraffedata@9d0c8265-081b-0410-96cb-a4ca84ce46f8>
Date: Fri, 5 Jan 2007 00:27:10 +0000
Subject: 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
---
 buildtools/installnetpbm.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'buildtools/installnetpbm.pl')

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; }
-- 
cgit 1.4.1