Ticket #593: padre-patch-win32-recent-files.patch

lib/Padre/File/Local.pm

@@ -11 +11 @@
 our $VERSION = '0.46';
 our @ISA     = 'Padre::File';
 
+use constant IS_WIN32 => !!( $^O =~ /^MSWin/ or $^O eq 'cygwin' );
+
+if (IS_WIN32) {
+    require Win32;
+}
+
 sub new {
     my $class = shift;
     my $self = bless { Filename => $_[0] }, $class;
     $self->{protocol} = 'local'; # Should not be overridden
 
+    if (IS_WIN32) {
+        # Fixing the case of the filename on Win32. 
+        $self->{Filename} = Win32::GetLongPathName($self->{Filename});
+    }
+
     # Convert the filename to correct format. On Windows C:\dir\file.pl and C:/dir/file.pl are the same
     # file but have different names.
     $self->{Filename} = File::Spec->catfile(File::Spec->splitdir(File::Basename::dirname($self->{Filename})),File::Basename::basename($self->{Filename}));

Makefile.PL

@@ -100 +100 @@
 requires       'URI'                      => '0';
 requires       'version'                  => 0;
 requires       'Win32::API'               => '0.58' if win32;
+requires       'Win32'                    => '0.39' if win32;
 requires       'Wx'                       => '0.91';
 requires       'Wx::Perl::ProcessStream'  => '0.11';
 requires       'YAML::Tiny'               => '1.32';