From 7bf8773f5f8530b61c9f904cc2b6b151b030d8d2 Mon Sep 17 00:00:00 2001
From: Michael Mikonos <127171689+mknos@users.noreply.github.com>
Date: Wed, 3 Jan 2024 20:24:40 +0800
Subject: [PATCH] ar: 2-argument FileHandle->new

---
 bin/ar | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/bin/ar b/bin/ar
index 9c811dfe..3829a3a9 100755
--- a/bin/ar
+++ b/bin/ar
@@ -222,7 +222,7 @@ sub extractMember {
 				   oct($attr->[4]), int($attr->[1]));
     }
 
-    my $out = FileHandle->new(">$name") or die "$name: $!\n";
+    my $out = FileHandle->new($name, 'w') or die "$name: $!\n";
     binmode($out);
     $out->print($attr->[6]);
     $out->close();
@@ -241,7 +241,7 @@ sub extractMember {
 # [ undef, $modt, $uid, $gid, $mode, $sz, $data ]
 sub readFile {
     my ($file) = @_;
-    my $in = FileHandle->new("< $file") or die "$file: $!\n";
+    my $in = FileHandle->new($file, 'r') or die "$file: $!\n";
     binmode($in);
 
     # read the data in one swell foop
@@ -268,7 +268,7 @@ sub readAr {
     # names in order in file
     my @Names = ( undef );
 
-    my $arfh = FileHandle->new("< $archive") or die "$0: $archive: $!\n";
+    my $arfh = FileHandle->new($archive, 'r') or die "$0: $archive: $!\n";
     binmode($arfh);
 
     # read magic
@@ -332,11 +332,11 @@ sub writeAr {
 
     my $arfh;
     if (!defined($append)) {
-	$arfh = FileHandle->new("> $archive") or die "$0: $archive: $!\n";
+	$arfh = FileHandle->new($archive, 'w') or die "$0: $archive: $!\n";
 	$arfh->print("!<arch>\n");
     }
     else {
-	$arfh = FileHandle->new(">> $archive") or die "$0: $archive: $!\n";
+	$arfh = FileHandle->new($archive, 'a') or die "$0: $archive: $!\n";
     }
 
     # loop through each member of the archive and write to filehandle