summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakfloppy
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-08-05 13:29:39 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-08-05 13:29:39 +0000
commit88945cb8cd27a11295159cb85944d00180280d61 (patch)
treeb25ff270988310768753414580b88cedc496ca91 /perl-install/standalone/drakfloppy
parent5889fd12bc1433d4500fc7349fe26bbc8a7a7548 (diff)
downloaddrakx-88945cb8cd27a11295159cb85944d00180280d61.tar
drakx-88945cb8cd27a11295159cb85944d00180280d61.tar.gz
drakx-88945cb8cd27a11295159cb85944d00180280d61.tar.bz2
drakx-88945cb8cd27a11295159cb85944d00180280d61.tar.xz
drakx-88945cb8cd27a11295159cb85944d00180280d61.zip
replace "kill USR1" with "kill 'USR1'" (and same for USR2)
(so that 'use strict' works)
Diffstat (limited to 'perl-install/standalone/drakfloppy')
-rwxr-xr-xperl-install/standalone/drakfloppy8
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/standalone/drakfloppy b/perl-install/standalone/drakfloppy
index 2cc0a3604..471beb475 100755
--- a/perl-install/standalone/drakfloppy
+++ b/perl-install/standalone/drakfloppy
@@ -69,7 +69,7 @@ my @titles = ( _("Module name"), _("Size") );
my $list = new_with_titles Gtk::CList( @titles );
my $window = $::isEmbedded ? new Gtk::Plug ($::XID) : new Gtk::Window -toplevel;
-$window->signal_connect( 'delete_event', sub { $::isEmbedded ? kill(USR1, $::CCPID) : Gtk->exit(0) });
+$window->signal_connect( 'delete_event', sub { $::isEmbedded ? kill('USR1', $::CCPID) : Gtk->exit(0) });
$window->set_title( _("drakfloppy") );
$window->set_policy(1, 1, 1);
$window->border_width (5);
@@ -79,7 +79,7 @@ $window->border_width (5);
# but they provides shiny shortcut like C-q
my @menu_items = (
{ path => _("/_File"), type => '<Branch>' },
- { path => _("/File/_Quit"), accelerator => _("<control>Q"), callback => sub { $::isEmbedded ? kill(USR1, $::CCPID) : Gtk->exit(0) } },
+ { path => _("/File/_Quit"), accelerator => _("<control>Q"), callback => sub { $::isEmbedded ? kill('USR1', $::CCPID) : Gtk->exit(0) } },
);
my $menubar = get_main_menu( $window );
@@ -233,7 +233,7 @@ $global_vbox->pack_start ($output_frame, 0, 0, 0);
my $build_button = new Gtk::Button( _("Build the disk") );
my $cancel_button = new Gtk::Button( _("Cancel") );
my $fin_hbox = new Gtk::HBox( 0, 0 );
-$cancel_button->signal_connect( clicked=> sub {$::isEmbedded ? kill(USR1, $::CCPID) : Gtk->exit(0)});
+$cancel_button->signal_connect( clicked=> sub {$::isEmbedded ? kill('USR1', $::CCPID) : Gtk->exit(0)});
$build_button->signal_connect('clicked', \&build_it);
$fin_hbox->pack_end($cancel_button, 0, 0, 0);
$fin_hbox->pack_end($build_button, 0, 0, 10);
@@ -248,7 +248,7 @@ $expert_mod_frame->hide();
$expert_button_frame->hide();
Gtk->main_iteration while Gtk->events_pending;
-$::isEmbedded and kill USR2, $::CCPID;
+$::isEmbedded and kill 'USR2', $::CCPID;
Gtk->main;