summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-07-17 18:30:24 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-07-17 18:30:24 +0000
commitc14152a26c29b5b169d0ebbd577d2ef09c8141da (patch)
tree80d0f1920725ca123cb87fec68619b0836b0276a /perl-install
parent234a6c88588be9def268f57bf43f9fae9b6317cf (diff)
downloaddrakx-c14152a26c29b5b169d0ebbd577d2ef09c8141da.tar
drakx-c14152a26c29b5b169d0ebbd577d2ef09c8141da.tar.gz
drakx-c14152a26c29b5b169d0ebbd577d2ef09c8141da.tar.bz2
drakx-c14152a26c29b5b169d0ebbd577d2ef09c8141da.tar.xz
drakx-c14152a26c29b5b169d0ebbd577d2ef09c8141da.zip
perl_checker fixes
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakconnect12
-rw-r--r--perl-install/ugtk2.pm10
2 files changed, 11 insertions, 11 deletions
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect
index bb504b962..a8e44f50a 100755
--- a/perl-install/standalone/drakconnect
+++ b/perl-install/standalone/drakconnect
@@ -580,12 +580,12 @@ Create one first by clicking on 'Configure'")),1,1,0);
$window->vbox->pack_start(gtkpack__(new Gtk2::VBox(0, 0),
new Gtk2::Label(N("Internet Connection Configuration")),
new Gtk2::HSeparator,
- my $table1 = create_packtable({ col_spacings => 5, row_spacings => 5, homogenous => 1 },
- [ Gtk2::Label->new(N("Profile: ")),
- Gtk2::Label->new(translate($netcnx->{PROFILE})) ],
- [ Gtk2::Label->new(N("Connection type: ")),
- Gtk2::Label->new(translate($netcnx->{type})) ],
- ),
+ create_packtable({ col_spacings => 5, row_spacings => 5, homogenous => 1 },
+ [ Gtk2::Label->new(N("Profile: ")),
+ Gtk2::Label->new(translate($netcnx->{PROFILE})) ],
+ [ Gtk2::Label->new(N("Connection type: ")),
+ Gtk2::Label->new(translate($netcnx->{type})) ],
+ ),
new Gtk2::HSeparator,
gtkadd(Gtk2::Frame->new(N("Parameters")), $vbox2),
),
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 470b0a1a6..722e04769 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -42,7 +42,7 @@ unless ($::no_ugtk_init) {
!check_for_xserver() and die "Cannot be run in console mode.\n";
$::one_message_has_been_translated and warn("N() was called from $::one_message_has_been_translated BEFORE gtk2 initialisation, replace it with a N_() AND a translate() later.\n"), c::_exit(1);
- Gtk2->init();
+ Gtk2->init;
c::bind_textdomain_codeset($_, 'UTF8') foreach 'libDrakX', @::textdomains;
$::need_utf8_i18n = 1;
}
@@ -152,7 +152,7 @@ sub gtkradio {
sub gtkroot() {
my $root if 0;
- $root ||= Gtk2::Gdk->get_default_root_window();
+ $root ||= Gtk2::Gdk->get_default_root_window;
}
sub gtkset_text {
@@ -357,7 +357,7 @@ sub create_dialog {
my $ret = 0;
my $dialog = _create_dialog($title, $o_options);
$dialog->set_border_width(10);
- my $text = $o_options->{use_markup} ? gtkset_markup(Gtk2::Label->new(), $label) : Gtk2::Label->new($label);
+ my $text = $o_options->{use_markup} ? gtkset_markup(Gtk2::Label->new, $label) : Gtk2::Label->new($label);
gtkpack($dialog->vbox,
gtkpack_(Gtk2::HBox->new,
if_($o_options->{stock}, 0, Gtk2::Image->new_from_stock($o_options->{stock}, 'dialog')),
@@ -1323,7 +1323,7 @@ sub append_set {
my ($model, @values) = @_;
# compatibility:
@values = @{$values[0]} if $#values == 0 && ref($values[0]) eq 'ARRAY';
- my $iter = $model->append();
+ my $iter = $model->append;
$model->set($iter, @values);
return $iter;
}
@@ -1394,7 +1394,7 @@ sub entry {
sub get_text {
my ($w) = @_;
- $w->{strings}->[$w->get_history];
+ $w->{strings}[$w->get_history];
}
sub set_text {