summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-06-03 07:13:21 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-06-03 07:13:21 +0000
commit671adafbfbb78f044970bc4af895ed43dff99757 (patch)
treefc85a99ee1607c5d23e5b1cdf8a4b86cf051c088
parentf027459b38e2cdf14d00a524214bf15395ad18d0 (diff)
downloaddrakx-671adafbfbb78f044970bc4af895ed43dff99757.tar
drakx-671adafbfbb78f044970bc4af895ed43dff99757.tar.gz
drakx-671adafbfbb78f044970bc4af895ed43dff99757.tar.bz2
drakx-671adafbfbb78f044970bc4af895ed43dff99757.tar.xz
drakx-671adafbfbb78f044970bc4af895ed43dff99757.zip
drop setting $_ (unused)
-rwxr-xr-xperl-install/standalone/XFdrake2
1 files changed, 0 insertions, 2 deletions
diff --git a/perl-install/standalone/XFdrake b/perl-install/standalone/XFdrake
index ecc044f4f..a1932db2f 100755
--- a/perl-install/standalone/XFdrake
+++ b/perl-install/standalone/XFdrake
@@ -30,8 +30,6 @@ use common;
use any;
use c;
-local $_ = join '', @ARGV;
-
my ($configure_this) = grep { !/^-/ } @ARGV;
$configure_this = 'resolution' if $0 =~ /Xdrakres/;
$configure_this ||= $::auto ? 'auto_install' : 'everything';
kwa">sub actions() { ( N_("Mount point") => \&mount_point, N_("Options") => \&options, N_("Type") => \&type, N_("Done") => \&done, ); } sub done { my ($in, $_raw_hd, $all_hds) = @_; diskdrake::interactive::Done($in, $all_hds); } sub options { my ($in, $raw_hd, $all_hds) = @_; diskdrake::interactive::Options($in, {}, $raw_hd, $all_hds); } sub mount_point { my ($in, $raw_hd, $all_hds) = @_; diskdrake::interactive::Mount_point_raw_hd($in, $raw_hd, $all_hds, "/media/$raw_hd->{device}"); } sub type { my ($in, $raw_hd) = @_; my @fs = ('auto', fs::type::guessed_by_mount()); my $fs_type = $raw_hd->{fs_type}; $in->ask_from(N("Change type"), N("Which filesystem do you want?"), [ { label => N("Type"), val => \$fs_type, list => [@fs] } ]) or return; $raw_hd->{fs_type} = $fs_type; } 1;