[perl-Gtk2] Fix a GtkRecentChooser.t failure on MSWin32



commit 9e722043ecaa5b2a3d1a68126250889cc0975371
Author: Torsten Schönfeld <kaffeetisch gmx de>
Date:   Sun Feb 28 15:35:34 2010 +0100

    Fix a GtkRecentChooser.t failure on MSWin32
    
    Use Glib::filename_to_uri to correctly construct URIs from filenames.

 t/GtkRecentChooser.t |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)
---
diff --git a/t/GtkRecentChooser.t b/t/GtkRecentChooser.t
index b09e6fe..d80bf17 100644
--- a/t/GtkRecentChooser.t
+++ b/t/GtkRecentChooser.t
@@ -42,8 +42,8 @@ $chooser -> set_sort_func(sub { warn join ", ", @_; });
 # --------------------------------------------------------------------------- #
 
 use Cwd qw(cwd);
-my $uri_one = "file://" . cwd() . "/" . $0;
-my $uri_two = "file://" . $^X;
+my $uri_one = Glib::filename_to_uri(cwd() . "/" . $0, undef);
+my $uri_two = Glib::filename_to_uri($^X, undef);
 
 $manager -> purge_items();
 $manager -> add_item($uri_one);



[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]