diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-01-27 07:35:17 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-01-27 07:35:17 +0000 |
| commit | 5c4358d842f57bd591613d115982c3f54f2fbecd (patch) | |
| tree | 69d9b2a366b46ec09cb0b7ebfcf5e6ad27493ab3 /perl-install | |
| parent | 8da133af207f39d6f686fb158c075c0ae43852e3 (diff) | |
| download | drakx-backup-do-not-use-5c4358d842f57bd591613d115982c3f54f2fbecd.tar drakx-backup-do-not-use-5c4358d842f57bd591613d115982c3f54f2fbecd.tar.gz drakx-backup-do-not-use-5c4358d842f57bd591613d115982c3f54f2fbecd.tar.bz2 drakx-backup-do-not-use-5c4358d842f57bd591613d115982c3f54f2fbecd.tar.xz drakx-backup-do-not-use-5c4358d842f57bd591613d115982c3f54f2fbecd.zip | |
force drakbug to be runnable in strict mode
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakbug | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/standalone/drakbug b/perl-install/standalone/drakbug index 772450a22..73e385847 100755 --- a/perl-install/standalone/drakbug +++ b/perl-install/standalone/drakbug @@ -17,6 +17,8 @@ # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. +use strict; +use diagnostics; use lib qw(/usr/lib/libDrakX); use standalone; @@ -112,7 +114,7 @@ $hbx->pack_start($Close_Button,0,0,0); my $Report_Button = new Gtk2::Button(N("Report")); $Report_Button->signal_connect(clicked => sub { my $options = "mdkbugreport=1"; $options .= "&incident=1" if $incident; - $p = $package->get_text(); $k = $kernel_rel->get_text(); ($r = parse_release()) =~ s/\s//; + my $p = $package->get_text(); my $k = $kernel_rel->get_text(); (my $r = parse_release()) =~ s/\s//; $options .= "&package=$p" if $p =~ /mdk/; $options .= "&kernel=$k"; $options .= "&version=$r"; @@ -138,7 +140,7 @@ sub update_app { } elsif (member($text, keys %{$mdk_app}) && $text ne N("Standalone Tools")) { $app_choice = get_package($mdk_app->{$text}); } else { - LOOP: while (($key,$value) = each %{$mdk_app}) { + LOOP: while (my ($key,$value) = each %{$mdk_app}) { next if $key eq N("Standalone Tools"); if ($value eq $text) { $app_choice = get_package($text); |