From 5c4358d842f57bd591613d115982c3f54f2fbecd Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 27 Jan 2003 07:35:17 +0000
Subject: force drakbug to be runnable in strict mode

---
 perl-install/standalone/drakbug | 6 ++++--
 1 file 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);
-- 
cgit v1.2.1