Index: ui-backport.pl
===================================================================
--- ui-backport.pl	(revision 31421)
+++ ui-backport.pl	(working copy)
@@ -25,6 +25,7 @@
 #                Ingo Brueckl <ib@wupperonline.de>
 
 use strict;
+use File::Basename;
 
 # Declare global variables
 #-------------------------
@@ -32,7 +33,7 @@
 
 my $in          = "$ARGV[0]"; # input file (.po)
 my $out         = "$ARGV[1]"; # output file (.strings)
-my $lang        = `basename $in .po`;
+my $lang        =  basename($in,'.po');
 my $kind 	= "0";
 my @xap_strings;
 my @ap_strings;
@@ -42,7 +43,6 @@
 my $encoding	= "iso-8859-1";
 
 $lang =~ s/_/-/g;
-chop $lang;
 
 print "Converting localization file $in to Abiword .strings format.\n";