Changeset 12000

Timestamp:

07/25/10 15:41:37 (19 months ago)

Author:

chorny

Message:

convert path back from utf8 on win32 (fix for #781)

Location:

trunk/Padre

Files:

• Changes (modified) (1 diff)
• lib/Padre/Config.pm (modified) (1 diff)

trunk/Padre/Changes

@@ -69 +69 @@
     - Padre has wxWidgets method documentation in F2 help search (AZAWAWI)
     - Added Padre::Wx::Nth to group first/nth-time startup magic (ADAMK)
+    - Fixed #781 : Unicode should not be used for accessing file system on Win32 (CHORNY)
 
 0.66 2010.07.01

trunk/Padre/lib/Padre/Config.pm

@@ -229 +229 @@
         Carp::croak("Tried to change setting '$name' to non-integer '$value'");
     }
-    if ( $type == Padre::Constant::PATH and not -e $value ) {
-        Carp::croak("Tried to change setting '$name' to non-existant path '$value'");
+    if ( $type == Padre::Constant::PATH ) {
+        if (Padre::Constant::WIN32 and utf8::is_utf8($value)) {
+            require Win32;
+            $value=Win32::GetLongPathName($value);
+            #Wx::DirPickerCtrl upgrades data to utf8.
+            #Perl on Windows cannot handle utf8 in file names, so this hack converts
+            #path back
+        }
+        if (not -e $value) {
+            Carp::croak("Tried to change setting '$name' to non-existant path '$value'");
+        }
     }