From cb578c77e23a409f434022dd175c5bd702877ffa Mon Sep 17 00:00:00 2001
From: Andras Timar <atimar@suse.com>
Date: Tue, 28 Feb 2012 11:03:02 +0100
Subject: fix behaviour of propex tool on Windows

---
 l10ntools/scripts/propex | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'l10ntools/scripts')

diff --git a/l10ntools/scripts/propex b/l10ntools/scripts/propex
index 6a402a213ae5..35dcb258e381 100755
--- a/l10ntools/scripts/propex
+++ b/l10ntools/scripts/propex
@@ -41,7 +41,8 @@ getopts("ep:r:i:o:l:", \%options);
 
 unless ( $options{i} =~ m/en_US/ ) {exit 0;}
 
-my ($unsued1, $dir, $unused2) = File::Basename::fileparse($options{i});
+$options{i} =~ s|\\|/|g; # fix path on Windows, Perl expects / separator
+my ($unused1, $dir, $unused2) = File::Basename::fileparse($options{i});
 my $file = substr ( Cwd::abs_path($options{i}), length(Cwd::abs_path($dir . $options{r})) + 1 );
 $file =~ s|/|\\|g;
 
-- 
cgit