Sfoglia il codice sorgente

Fix check_disk_smb for perl environments which don't have the utf8 package

madlohe 6 anni fa
parent
commit
cf7e1e85ba
1 ha cambiato i file con 4 aggiunte e 1 eliminazioni
  1. 4 1
      plugins-scripts/check_disk_smb.pl

+ 4 - 1
plugins-scripts/check_disk_smb.pl

@@ -19,7 +19,10 @@
 #
 #
 
 
 require 5.004;
 require 5.004;
-use utf8::all;
+eval "use utf8::all";
+if ( $@ ) {
+    use utf8::all;
+}
 use POSIX;
 use POSIX;
 use strict;
 use strict;
 use Getopt::Long;
 use Getopt::Long;