texlive[54497] Master/tlpkg/tlpostcode/haranoaji-tlpost.pl:

[commits+hironobu at tug.org]

Revision: 54497
          http://tug.org/svn/texlive?view=revision&revision=54497
Author:   hironobu
Date:     2020-03-23 16:44:21 +0100 (Mon, 23 Mar 2020)
Log Message:
-----------
haranoaji-tlpost.pl: less verbosity for low-level

Modified Paths:
--------------
    trunk/Master/tlpkg/tlpostcode/haranoaji-tlpost.pl

Modified: trunk/Master/tlpkg/tlpostcode/haranoaji-tlpost.pl
===================================================================
--- trunk/Master/tlpkg/tlpostcode/haranoaji-tlpost.pl	2020-03-23 01:29:43 UTC (rev 54496)
+++ trunk/Master/tlpkg/tlpostcode/haranoaji-tlpost.pl	2020-03-23 15:44:21 UTC (rev 54497)
@@ -406,7 +406,7 @@
     my $msg = decode ('locale',
                       Win32::FormatMessage (Win32::GetLastError ()));
     $msg =~ s/[\r\n]+\z//;
-    my_warn ("CreateSymbolicLinkW failed: ${msg}\n");
+    my_log ("CreateSymbolicLinkW failed: ${msg}\n");
 
     return 0;
 }
@@ -433,7 +433,7 @@
     my $msg = decode ('locale',
                       Win32::FormatMessage (Win32::GetLastError ()));
     $msg =~ s/[\r\n]+\z//;
-    my_warn ("CreateHardLinkW failed: ${msg}\n");
+    my_log ("CreateHardLinkW failed: ${msg}\n");
 
     return 0;
 }
@@ -460,7 +460,7 @@
     my $msg = decode ('locale',
                       Win32::FormatMessage (Win32::GetLastError ()));
     $msg =~ s/[\r\n]+\z//;
-    my_warn ("CopyFileW failed: ${msg}\n");
+    my_log ("CopyFileW failed: ${msg}\n");
 
     return 0;
 }