summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-01-27 07:35:17 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-01-27 07:35:17 +0000
commit5c4358d842f57bd591613d115982c3f54f2fbecd (patch)
tree69d9b2a366b46ec09cb0b7ebfcf5e6ad27493ab3 /perl-install
parent8da133af207f39d6f686fb158c075c0ae43852e3 (diff)
downloaddrakx-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-xperl-install/standalone/drakbug6
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);