texlive[66040] Master/tlpkg/TeXLive/TLUtils.pm: (diskfree): show

[commits+karl at tug.org]

Revision: 66040
          http://tug.org/svn/texlive?view=revision&revision=66040
Author:   karl
Date:     2023-02-21 23:49:37 +0100 (Tue, 21 Feb 2023)
Log Message:
-----------
(diskfree): show actual output from df -P when debugging.

Modified Paths:
--------------
    trunk/Master/tlpkg/TeXLive/TLUtils.pm

Modified: trunk/Master/tlpkg/TeXLive/TLUtils.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLUtils.pm	2023-02-21 22:29:50 UTC (rev 66039)
+++ trunk/Master/tlpkg/TeXLive/TLUtils.pm	2023-02-21 22:49:37 UTC (rev 66040)
@@ -886,6 +886,7 @@
     # /dev/sdb3       6099908248 3590818104 2406881416      60% /home
     my ($h,$l) = split(/\n/, $output);
     my ($fs, $nrb, $used, $avail, @rest) = split(' ', $l);
+    debug("diskfree: df -P output: $output");
     debug("diskfree: used=$used (512-block), avail=$avail (512-block)\n");
     # $avail is in 512-byte blocks, so we need to divide by 2*1024 to
     # obtain Mb. Require that at least 100M remain free.