From 219945c6d4bcd34b2005dd8e5a626c161bc8e132 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=E4=BE=9D=E7=91=AA=E8=B2=93?= <imacat@mail.imacat.idv.tw>
Date: Sat, 19 Mar 2022 10:28:48 +0800
Subject: [PATCH] Simplified the readline method in the compression I/O.

---
 arclog | 12 +++---------
 1 file changed, 3 insertions(+), 9 deletions(-)

diff --git a/arclog b/arclog
index 8b1ab17..1daca7b 100755
--- a/arclog
+++ b/arclog
@@ -1692,9 +1692,7 @@ sub open_append : method {
 }
 
 # Read a line from the I/O stream
-sub readline : method {
-    return $_[0]->{"gz"}->getline();
-}
+sub readline : method { $_[0]->{"gz"}->getline; }
 
 # Output data to the I/O stream
 sub write : method {
@@ -2149,9 +2147,7 @@ sub open_append : method {
 }
 
 # Read a line from the I/O stream
-sub readline : method {
-    return $_[0]->{"bz"}->getline();
-}
+sub readline : method { $_[0]->{"bz"}->getline; }
 
 # Output data to the I/O stream
 sub write : method {
@@ -2607,9 +2603,7 @@ sub open_append : method {
 }
 
 # Read a line from the I/O stream
-sub readline : method {
-    return $_[0]->{"xz"}->getline();
-}
+sub readline : method { $_[0]->{"xz"}->getline; }
 
 # Output data to the I/O stream
 sub write : method {