summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakfloppy
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/drakfloppy')
-rwxr-xr-xperl-install/standalone/drakfloppy23
1 files changed, 0 insertions, 23 deletions
diff --git a/perl-install/standalone/drakfloppy b/perl-install/standalone/drakfloppy
index 84ed955c0..a19e7889e 100755
--- a/perl-install/standalone/drakfloppy
+++ b/perl-install/standalone/drakfloppy
@@ -36,29 +36,6 @@ use ugtk qw(:helpers);
init Gtk;
Gtk->set_locale;
-#-------------------------------------------------------------
-# i18n routines
-# IMPORTANT: next two routines have to be redefined here to
-# get correct namespace (drakconf instead of libDrakX)
-# (This version is now UTF8 compliant - Sg 2001-08-18)
-#-------------------------------------------------------------
-
-#sub _ {
-# my $s = shift @_; my $t = translate($s);
-# sprintf $t, @_;
-#}
-
-#sub translate {
-# my ($s) = @_;
-# $s ? c::dgettext('libDrakX', $s) : '';
-#}
-
-if ($::isEmbedded) {
- print "EMBED\n";
- print "XID : $::XID\n";
- print "CCPID : $::CCPID\n";
-}
-
$in = 'interactive'->vnew('su', 'default');
local $_ = join '', @ARGV;