From 13d553d90820a8318aa5129311ed856d2e12f459 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 11 May 2004 14:25:43 +0000 Subject: remove unused function --- perl-install/lang.pm | 4 ---- 1 file changed, 4 deletions(-) (limited to 'perl-install/lang.pm') diff --git a/perl-install/lang.pm b/perl-install/lang.pm index 7f6115718..f48a6806c 100644 --- a/perl-install/lang.pm +++ b/perl-install/lang.pm @@ -1131,10 +1131,6 @@ sub during_install__l2charset { uc($c); } -sub get_unneeded_png_lang_files() { - print join(' ', map { if_(m|(langs/lang-(.*)\.png)| && !member($2, list_langs()), $1) } glob("pixmaps/langs/lang-*.png")); -} - sub check() { $^W = 0; my $ok = 1; -- cgit v1.2.1