diff options
| -rw-r--r-- | perl-install/Xconfig/test.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/Xconfig/test.pm b/perl-install/Xconfig/test.pm index 08f73643a..1c5fade15 100644 --- a/perl-install/Xconfig/test.pm +++ b/perl-install/Xconfig/test.pm @@ -129,7 +129,7 @@ sub test { my $time = 12; Gtk2->timeout_add(1000, sub { $text->set(N("Leaving in %d seconds", $time)); - $time-- or Gtk->main_quit; + $time-- or Gtk2->main_quit; 1; }); |