W32: encode local filename unicode if possible

if Win32::Unicode::File::open() is available, we use it to create the file name. This is useful for the rare cases when the computer name if in a local encoding. closes: #272
fusioninventory · May 15, 2012 · 41ff45b · 41ff45b
1 parent 37dfcd0
commit 41ff45b
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/lib/FusionInventory/Agent/Task/Inventory.pm b/lib/FusionInventory/Agent/Task/Inventory.pm
@@ -89,7 +89,14 @@ sub run {
             $self->{deviceid} .
             $extension;
 
-        if (open my $handle, '>', $file) {
+        my $handle;
+        if (Win32::Unicode::File->require) {
+            $handle = Win32::Unicode::File->new('w', $file);
+        } else {
+            open($handle, '>', $file);
+        }
+
+        if ($handle) {
             $self->_printInventory(
                 inventory => $inventory,
                 handle    => $handle,