[Debian-l10n-commits] r2718 - in /ddtp-web: Changelog file2Translation.pl

[nekral-guest at users.alioth.debian.org]

Author: nekral-guest
Date: Mon Jul 25 16:45:26 2011
New Revision: 2718

URL: http://svn.debian.org/wsvn/?sc=1&rev=2718
Log:
	* file2Translation.pl: Remove dead code. md5_hex not used.
	$package duplicated. And commented test code removed.

Modified:
    ddtp-web/Changelog
    ddtp-web/file2Translation.pl

Modified: ddtp-web/Changelog
URL: http://svn.debian.org/wsvn/ddtp-web/Changelog?rev=2718&op=diff
==============================================================================
--- ddtp-web/Changelog (original)
+++ ddtp-web/Changelog Mon Jul 25 16:45:26 2011
@@ -1,3 +1,8 @@
+2011-07-25  Nicolas Francois  <nicolas.francois at centraliens.net>
+
+	* file2Translation.pl: Remove dead code. md5_hex not used.
+	$package duplicated. And commented test code removed.
+
 2011-07-25  Nicolas Francois  <nicolas.francois at centraliens.net>
 
 	* Packages2packages_tb.pl: Packages2packages_tb.pl loads

Modified: ddtp-web/file2Translation.pl
URL: http://svn.debian.org/wsvn/ddtp-web/file2Translation.pl?rev=2718&op=diff
==============================================================================
--- ddtp-web/file2Translation.pl (original)
+++ ddtp-web/file2Translation.pl Mon Jul 25 16:45:26 2011
@@ -7,7 +7,6 @@
 my $lang= shift(@ARGV); 
 
 use DBI;
-use Digest::MD5 qw(md5_hex);
 
 my @DSN = ("DBI:Pg:dbname=ddtp", "", "");
 
@@ -19,8 +18,6 @@
 
 die $DBI::errstr unless $dbh;
 
-
-my $package;
 
 sub get_translation {
 	my $description_id= shift(@_);
@@ -80,12 +77,6 @@
 		}
 	}
 	close (PACKAGELIST);
-
-	# # get only the uniq elements (see man perlfaq5)
-	# my %hash   = map { $_, 1 } @description_ids;
-	# my @unique = keys %hash;
- 
-	# return @unique;
 }
 
 make_translation_file($dists);