Use fully-qualified variable name from Compress::Zlib

This way it's not a syntax error when Compress::Zlib is missing
briandfoy · Apr 26, 2024 · 9b9e75d · 9b9e75d
1 parent 66922d3
commit 9b9e75d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/bin/tar b/bin/tar
@@ -226,8 +226,8 @@ else
   if ($opt{'z'} || $opt{'Z'})
    {
     # quick and dirty till we sort out Compress::Zlib
-    my $gz = gzopen($fh, 'rb') or fatal("Cannot gzopen: $gzerrno");
-    $read = sub { $gz->gzread($_[0],$_[1]) < 0 ? $gzerrno : 0 };
+    my $gz = gzopen($fh, 'rb') or fatal("Cannot gzopen: $Compress::Zlib::gzerrno");
+    $read = sub { $gz->gzread($_[0],$_[1]) < 0 ? $Compress::Zlib::gzerrno : 0 };
    }
   else
    {