perl_checker cleanups (GUI code actually wasn't touched in order to

help olivier merge his ugtk2 porting work)

1 files changed, 128 insertions, 132 deletions

diff --git a/perl-install/standalone/drakroam b/perl-install/standalone/drakroam
index e7e6d5a89..3f61039a2 100755
--- a/perl-install/standalone/drakroam
+++ b/perl-install/standalone/drakroam
@@ -23,69 +23,69 @@ use Gtk2::SimpleList;
 use Glib qw(TRUE FALSE);
 use lib qw(/usr/lib/libDrakX);
 use common;
-require_root_capability;
+require_root_capability();
 
 # global settings
-$config = '/etc/wlandetect.conf';
-$route = '/sbin/route';
-$AboutFile = 'ABOUT';
-$HelpFile = 'README';
-$WLanDetect = '/usr/sbin/wlandetect';
-$IWList = '/sbin/iwlist';
-$IWConfig = '/sbin/iwconfig';
-$IFConfig = '/sbin/ifconfig';
-$IFUp = '/sbin/ifup';
-$IFDown = '/sbin/ifdown';
-$DHClient = '/sbin/dhclient';
+my $config = '/etc/wlandetect.conf';
+my $route = '/sbin/route';
+my $AboutFile = 'ABOUT';
+my $HelpFile = 'README';
+my $WLanDetect = '/usr/sbin/wlandetect';
+my $IWList = '/sbin/iwlist';
+my $IWConfig = '/sbin/iwconfig';
+my $IFConfig = '/sbin/ifconfig';
+my $IFUp = '/sbin/ifup';
+my $IFDown = '/sbin/ifdown';
+my $DHClient = '/sbin/dhclient';
 
 # initialize variables
-$ScanInterval = 60; # tell deamon to search for new nets every x seconds
-$NumberOfNets = 0; # really lame way to count the number of nets to write to config file
+my $ScanInterval = 60; # tell deamon to search for new nets every x seconds
+my $NumberOfNets = 0; # really lame way to count the number of nets to write to config file
 # there must be a better way to count the number of arrays in $KnownList->{data} !!
 
 # initialize main window
 $MainWindow = Gtk2::Window->new;
-$MainWindow->set_title ('Drakroam');
+$MainWindow->set_title('Drakroam');
 $MainWindow->set_border_width(2);
-$MainWindow->signal_connect (delete_event => sub {
+$MainWindow->signal_connect(delete_event => sub {
 	Gtk2->main_quit;
 });
 
 # add main box; everything goes in here
 $MainBox = Gtk2::VBox->new(0);
-$MainWindow->add ($MainBox);
+$MainWindow->add($MainBox);
 
 # add status box and frame
 $StatusBox = Gtk2::VBox->new(0);
 $StatusFrame = Gtk2::Frame->new("Status");
 $StatusFrame->set_border_width(2);
 $StatusFrame->add($StatusBox);
-$MainBox->pack_start ($StatusFrame, 0, 0, 0);
+$MainBox->pack_start($StatusFrame, 0, 0, 0);
 
 # add status labels in three columns
 $StatusLabels = Gtk2::HBox->new(0,0);
-$StatusBox->pack_start ($StatusLabels, 0, 0, 0);
+$StatusBox->pack_start($StatusLabels, 0, 0, 0);
 $StatusColumnA = Gtk2::VBox->new(0);
 $StatusColumnB = Gtk2::VBox->new(0);
 $StatusColumnC = Gtk2::VBox->new(0);
-$StatusLabels->pack_start ($StatusColumnA, 0, 0, 10);
-$StatusLabels->pack_start ($StatusColumnB, 0, 0, 10);
-$StatusLabels->pack_start ($StatusColumnC, 0, 0, 10);
+$StatusLabels->pack_start($StatusColumnA, 0, 0, 10);
+$StatusLabels->pack_start($StatusColumnB, 0, 0, 10);
+$StatusLabels->pack_start($StatusColumnC, 0, 0, 10);
 $StatusLabelA = Gtk2::Label->new;
 $StatusLabelB = Gtk2::Label->new;
 $StatusLabelC = Gtk2::Label->new;
-$StatusColumnA->pack_start ($StatusLabelA, 0, 0, 0);
-$StatusColumnB->pack_start ($StatusLabelB, 0, 0, 0);
-$StatusColumnC->pack_start ($StatusLabelC, 0, 0, 0);
+$StatusColumnA->pack_start($StatusLabelA, 0, 0, 0);
+$StatusColumnB->pack_start($StatusLabelB, 0, 0, 0);
+$StatusColumnC->pack_start($StatusLabelC, 0, 0, 0);
 
 # add disconnect and refresh buttons
 $StatusControls = Gtk2::HBox->new(1,0);
 $DisconnectButton = Gtk2::Button->new("Disconnect");
 $StatusControls->pack_start($DisconnectButton, 0, 0, 0);
-$DisconnectButton->signal_connect (clicked=>sub { &Disconnect });
+$DisconnectButton->signal_connect(clicked => sub { &Disconnect });
 $RefreshButton = Gtk2::Button->new("Refresh");
 $StatusControls->pack_start($RefreshButton, 0, 0, 0);
-$RefreshButton->signal_connect (clicked=>sub { &UpdateStatus });
+$RefreshButton->signal_connect(clicked => sub { &UpdateStatus });
 $StatusBox->pack_start($StatusControls, 0, 0, 0);
 
 # add roaming box and frame
@@ -93,7 +93,7 @@ $RoamBox = Gtk2::HBox->new(1,0);
 $RoamFrame = Gtk2::Frame->new("Roaming");
 $RoamFrame->set_border_width(2);
 $RoamFrame->add($RoamBox);
-$MainBox->pack_start ($RoamFrame, 0, 0, 0);
+$MainBox->pack_start($RoamFrame, 0, 0, 0);
 
 # add roam status and controls
 $RoamControls = Gtk2::VBox->new(0);
@@ -101,11 +101,11 @@ $RoamStatus = Gtk2::Label->new("Roaming: off");
 $RoamControls->pack_start($RoamStatus, 0, 0, 0);
 $RoamStartStop = Gtk2::HBox->new(0);
 $StartButton = Gtk2::Button->new("Start");
-$StartButton->signal_connect(clicked=>sub { &StartRoam });
+$StartButton->signal_connect(clicked => sub { &StartRoam });
 $RoamStartStop->pack_start($StartButton, 0, 0, 0);
 $StopButton = Gtk2::Button->new("Stop");
 $RoamStartStop->pack_start($StopButton, 0, 0, 0);
-$StopButton->signal_connect(clicked=>sub { &StopRoam });
+$StopButton->signal_connect(clicked => sub { &StopRoam });
 $RoamControls->pack_start($RoamStartStop, 0, 0, 0);
 $RoamBox->pack_start($RoamControls, 0, 0, 0);
 
@@ -117,9 +117,9 @@ $ScanControl->pack_start($ScanLabel, 0, 0, 0);
 $ScanEntry = Gtk2::Entry->new;
 $ScanEntry->set_width_chars(4);
 $ScanDialogue->pack_start($ScanEntry, 0, 0, 0);
-$ScanEntry->set_text("$ScanInterval");
+$ScanEntry->set_text($ScanInterval);
 $ScanSetButton = Gtk2::Button->new("Set");
-$ScanSetButton->signal_connect(clicked=>sub { &SetInterval });
+$ScanSetButton->signal_connect(clicked => sub { &SetInterval });
 $ScanDialogue->pack_start($ScanSetButton, 0, 0, 0);
 $ScanControl->pack_start($ScanDialogue, 0, 0, 0);
 $RoamBox->pack_start($ScanControl, 0, 0, 0);
@@ -129,7 +129,7 @@ $KnownBox = Gtk2::VBox->new(0);
 $KnownFrame = Gtk2::Frame->new("Known Networks (Drag up/down or edit)");
 $KnownFrame->set_border_width(2);
 $KnownFrame->add($KnownBox);
-$MainBox->pack_start ($KnownFrame, 0, 0, 0);
+$MainBox->pack_start($KnownFrame, 0, 0, 0);
 
 # make list and scroll box for known networks
 $KnownList = Gtk2::SimpleList->new(
@@ -139,35 +139,35 @@ $KnownList = Gtk2::SimpleList->new(
 	"Key" => "text",
 	"DHCP" => "bool"
 );
-$KnownList->get_selection->set_mode ('single');
+$KnownList->get_selection->set_mode('single');
 $KnownList->set_reorderable(1);
-$KnownList->set_column_editable (1, TRUE); # allow to change mode
-$KnownList->set_column_editable (2, TRUE); # allow to change channel
-$KnownList->set_column_editable (3, TRUE); # allow to change key
+$KnownList->set_column_editable(1, TRUE); # allow to change mode
+$KnownList->set_column_editable(2, TRUE); # allow to change channel
+$KnownList->set_column_editable(3, TRUE); # allow to change key
 #$KnownBox->pack_start($KnownList, 0, 0, 0);
 $KnownScroll = Gtk2::ScrolledWindow->new;
-$KnownScroll->set_policy ('automatic', 'automatic');
-$KnownScroll->add ($KnownList);
-$KnownBox->pack_start ($KnownScroll, 0, 0, 0);
+$KnownScroll->set_policy('automatic', 'automatic');
+$KnownScroll->add($KnownList);
+$KnownBox->pack_start($KnownScroll, 0, 0, 0);
 
 # add controls for known networks
 $KnownControls = Gtk2::HBox->new(1);
 $RemoveNetButton = Gtk2::Button->new("Remove");
 $KnownControls->pack_start($RemoveNetButton, 0, 0, 0);
-$RemoveNetButton->signal_connect(clicked=>sub {
+$RemoveNetButton->signal_connect(clicked => sub {
 	my @selected = $KnownList->get_selected_indices;
 	splice @{$KnownList->{data}}, "@selected", 1;
 	$NumberOfNets--;
 });
 $ConnectButton = Gtk2::Button->new("Connect");
 $KnownControls->pack_start($ConnectButton, 0, 0, 0);
-$ConnectButton->signal_connect(clicked=>sub {
+$ConnectButton->signal_connect(clicked => sub {
 	my @selected = $KnownList->get_selected_indices;
-	&ConnectNow (@selected);
+	&ConnectNow(@selected);
 });
 $SaveConfigButton = Gtk2::Button->new("Save");
 $KnownControls->pack_start($SaveConfigButton, 0, 0, 0);
-$SaveConfigButton->signal_connect(clicked=>sub { &WriteConfig });
+$SaveConfigButton->signal_connect(clicked => sub { &WriteConfig });
 $KnownBox->pack_start($KnownControls, 0, 0, 0);
 
 # add available networks box
@@ -175,7 +175,7 @@ $AvailableBox = Gtk2::VBox->new(0);
 $AvailableFrame = Gtk2::Frame->new("Available Networks");
 $AvailableFrame->set_border_width(2);
 $AvailableFrame->add($AvailableBox);
-$MainBox->pack_start ($AvailableFrame, 0, 0, 0);
+$MainBox->pack_start($AvailableFrame, 0, 0, 0);
 
 # make list and scroll box for available networks
 $AvailableList = Gtk2::SimpleList->new(
@@ -184,42 +184,42 @@ $AvailableList = Gtk2::SimpleList->new(
 	"Encryption" => "text",
 	"Signal (%)" => "int"
 );
-$AvailableList->get_selection->set_mode ('single');
+$AvailableList->get_selection->set_mode('single');
 #$AvailableBox->pack_start($AvailableList, 0, 0, 0);
 $AvailableScroll = Gtk2::ScrolledWindow->new;
-$AvailableScroll->set_policy ('automatic', 'automatic');
-$AvailableScroll->add ($AvailableList);
-$AvailableBox->pack_start ($AvailableScroll, 0, 0, 0);
+$AvailableScroll->set_policy('automatic', 'automatic');
+$AvailableScroll->add($AvailableList);
+$AvailableBox->pack_start($AvailableScroll, 0, 0, 0);
 
 # add controls for available networks
 $AvailableControls = Gtk2::HBox->new(1);
 $AddNetButton = Gtk2::Button->new("Add");
 $AvailableControls->pack_start($AddNetButton, 0, 0, 0);
-$AddNetButton->signal_connect(clicked=>sub { 
+$AddNetButton->signal_connect(clicked => sub { 
 	my @selected = $KnownList->get_selected_indices;
 	my $essid = $AvailableList->{data}[@selected][0];
-	my $mode = undef;
-	my $channel = undef;
-	my $key = undef;
+	my $mode;
+	my $channel;
+	my $key;
 	my $dhcp = 1; # assume dhcp for new networks
-	&AddNet ($essid, $mode, $channel, $key, $dhcp);
+	&AddNet($essid, $mode, $channel, $key, $dhcp);
 });
 $UpdateAvailableButton = Gtk2::Button->new("Rescan");
 $AvailableControls->pack_start($UpdateAvailableButton, 0, 0, 0);
-$UpdateAvailableButton->signal_connect(clicked=>sub { &UpdateAvailable });
+$UpdateAvailableButton->signal_connect(clicked => sub { &UpdateAvailable });
 $AvailableBox->pack_start($AvailableControls, 0, 0, 0);
 
 # add master controls
 $MasterBox = Gtk2::HBox->new(1);
 $HelpButton = Gtk2::Button->new("Help");
 $MasterBox->pack_start($HelpButton, 0, 0, 0);
-$HelpButton->signal_connect (clicked=>sub { &Dialog ("$HelpFile") });
+$HelpButton->signal_connect(clicked => sub { &Dialog($HelpFile) });
 $AboutButton = Gtk2::Button->new("About");
 $MasterBox->pack_start($AboutButton, 0, 0, 0);
-$AboutButton->signal_connect (clicked=>sub { &Dialog ("$AboutFile") });
+$AboutButton->signal_connect(clicked => sub { &Dialog($AboutFile) });
 $CloseButton = Gtk2::Button->new("Save and close");
 $MasterBox->pack_start($CloseButton, 0, 0, 0);
-$CloseButton->signal_connect (clicked=>sub {
+$CloseButton->signal_connect(clicked => sub {
 	&WriteConfig;
 	Gtk2->main_quit;
 });
@@ -237,8 +237,8 @@ sub UpdateAll {
 
 sub UpdateRoaming {
 	my $status = "off";
-	open (my $PS, "ps -A |") or die ("Can't open ps\n");
-	grep { /wlandetect$/ } <$PS> and $status = "on";
+	open(my $PS, "ps -A |") or die("Can't open ps\n");
+	any { /wlandetect$/ } <$PS> and $status = "on";
 	close $PS;
 	$RoamStatus->set_text("Roaming: $status");
 }
@@ -250,54 +250,54 @@ sub UpdateStatus {
 	$CurrentMode = "";
 	$CurrentWEP = "";
 	$CurrentSignal = "-";
-	print ("Updating\n");
-	open (IWSTATUS, "$IWConfig 2>/dev/null |") or die ("Can't run iwconfig\n");
-	while (<IWSTATUS>) {
-		if (/ESSID:\"(\S*)\"/) { $CurrentNet = $1 }
+	print("Updating\n");
+	open(my $IWSTATUS, "$IWConfig 2>/dev/null |") or die("Can't run iwconfig\n");
+	while (<$IWSTATUS>) {
+		if (/ESSID:"(\S*)"/) { $CurrentNet = $1 }
 		if (/Mode:(\S*)\s/) { $CurrentMode = $1 }
 		if (/key:(\S*)\s/) { $CurrentWEP = $1 }
-		if (/Quality:(\S*)\//) { $CurrentSignal = $1 }
+		if (m!Quality:(\S*)/!) { $CurrentSignal = $1 }
 	}
-	close IWSTATUS;
-	open (IFSTATUS, "$IFConfig $device |") or die ("Can't run ifconfig\n");
-	while (<IFSTATUS>) {
+	close $IWSTATUS;
+	open(my $IFSTATUS, "$IFConfig $device |") or die("Can't run ifconfig\n");
+	while (<$IFSTATUS>) {
 		if (/inet addr:(\S*)\s/) { $CurrentIP = $1 }
 	}
-	close IFSTATUS;
-	open (ROUTE, "$route |") or die ("Can't run route\n");
-	while (<ROUTE>) {
+	close $IFSTATUS;
+	open(my $ROUTE, "$route |") or die("Can't run route\n");
+	while (<$ROUTE>) {
 		if (/default\s*(\S*)\s/) { $CurrentGW = $1 }
 		else { $CurrentGW = "---.---.---.---" }
 	}
-	close ROUTE;
-	$StatusLabelA->set_text ("Net: $CurrentNet\nMode: $CurrentMode");
-	$StatusLabelB->set_text ("IP: $CurrentIP\nEncryption: $CurrentWEP");
-	$StatusLabelC->set_text ("Gateway: $CurrentGW\nSignal: $CurrentSignal");
+	close $ROUTE;
+	$StatusLabelA->set_text("Net: $CurrentNet\nMode: $CurrentMode");
+	$StatusLabelB->set_text("IP: $CurrentIP\nEncryption: $CurrentWEP");
+	$StatusLabelC->set_text("Gateway: $CurrentGW\nSignal: $CurrentSignal");
 }
 
 sub UpdateAvailable {
-	print ("Running iwlist\n");
-	open (LIST, "$IWList scan 2>/dev/null |") or die ("Can't run iwlist");
+	print("Running iwlist\n");
+	open(my $LIST, "$IWList scan 2>/dev/null |") or die("Can't run iwlist");
 	@{$AvailableList->{data}} = ();
-	while (<LIST>) {
+	while (<$LIST>) {
 		if(/([^ ]+)([ \t]+)Scan completed :/) { $device = $1 }
 		elsif (/([^ ]+)([ \t]+)No scan results/) { $device = $1 }
 		if (/ESSID:"(\S*)"/) {
 			$essid = $1;
-			print ("Found $essid.\n");
-			my $mode = undef;
-			my $wep = undef;
-			my $signal = undef;
+			print("Found $essid.\n");
+			my $mode;
+			my $wep;
+			my $signal;
 		}
 		if (/Mode:(\S*)/) { $mode = $1 }
-		if (/Quality:(\S*)\//) { $signal = $1 }
+		if (m!Quality:(\S*)/!) { $signal = $1 }
 		if (/key:(\S*)\s/) {
 			$wep = $1;
-			print ("Mode: $mode, WEP: $wep, Signal: $signal\n");
+			print("Mode: $mode, WEP: $wep, Signal: $signal\n");
 			push @{$AvailableList->{data}}, [$essid, $mode, $wep, $signal];
 		}
 	}
-	close LIST;
+	close $LIST;
 }
 
 sub AddNet {
@@ -307,15 +307,15 @@ sub AddNet {
 	my $key = shift @_;
 	my $dhcp = shift @_;
 	print "Adding net $essid\n";
-	push (@{$KnownList->{data}}, [$essid, $mode, $channel, $key, $dhcp]);
+	push(@{$KnownList->{data}}, [$essid, $mode, $channel, $key, $dhcp]);
 	$NumberOfNets++;
 }
 
 sub ReadConfig {
-	open(CONFIG, $config) or die "Configuration file not found.\n";
+	open(my $CONFIG, $config) or die "Configuration file not found.\n";
 	print "Reading config file.\n\n";
 	$line = 0;
-	while (<CONFIG>) {
+	while (<$CONFIG>) {
 		$line++;
                 if (/^#/) {} #ignore comments
 		elsif (/^\n/) {} #ignore blank lines
@@ -323,64 +323,64 @@ sub ReadConfig {
                 	my $essid = $1;
 			my $command = $3;
 			# setup new network entry
-			my $mode = undef;
-			my $channel = undef;
-			my $key = undef;
-			my $dhcp = undef;
-			if ($command =~ /mode\s(\S*);/) { $mode = $1; }
-			elsif ($command =~ /mode\s(\S*)\s/) { $mode = $1; }
-			if ($command =~ /channel\s(\S*);/) { $channel = $1; }
-			elsif ($command =~ /channel\s(\S*)\s/) { $channel = $1; }
-			if ($command =~ /key\s(\S*);/) { $key = $1; }
-			elsif ($command =~ /key\s(\S*)\s/) { $key = $1; }
-			if ($command =~ /dhclient/) { $dhcp = 1; }
-			else { $dhcp = 0; }
-			&AddNet ($essid, $mode, $channel, $key, $dhcp);
+			my $mode;
+			my $channel;
+			my $key;
+			my $dhcp;
+			if ($command =~ /mode\s(\S*);/) { $mode = $1 }
+			elsif ($command =~ /mode\s(\S*)\s/) { $mode = $1 }
+			if ($command =~ /channel\s(\S*);/) { $channel = $1 }
+			elsif ($command =~ /channel\s(\S*)\s/) { $channel = $1 }
+			if ($command =~ /key\s(\S*);/) { $key = $1 }
+			elsif ($command =~ /key\s(\S*)\s/) { $key = $1 }
+			if ($command =~ /dhclient/) { $dhcp = 1 }
+			else { $dhcp = 0 }
+			&AddNet($essid, $mode, $channel, $key, $dhcp);
 		}
-		else { die "Line $line of configuration file is not parseable.\n"; }
+		else { die "Line $line of configuration file is not parseable.\n" }
 	}
-	close CONFIG;
+	close $CONFIG;
 }
 
 sub WriteConfig {
-	open (CONFIG, "> $config") or die ("Can't open configuration file\n");
-	print CONFIG ("#wlandetect configuration file\n#format: essid<tab><tab>commands\n#use @DEV@ for device name\n");
-	for ($row=0; $row<$NumberOfNets; $row++) { # again, lame
-		print CONFIG "$KnownList->{data}[$row][0]\t\t$IWConfig essid $KnownList->{data}[$row][0]";
+	open(my $CONFIG, "> $config") or die("Can't open configuration file\n");
+	print $CONFIG "#wlandetect configuration file\n#format: essid<tab><tab>commands\n#use @DEV@ for device name\n";
+	for ($row=0; $row < $NumberOfNets; $row++) { # again, lame
+		print $CONFIG "$KnownList->{data}[$row][0]\t\t$IWConfig essid $KnownList->{data}[$row][0]";
 		if ($KnownList->{data}[$row][1]) {
-			print CONFIG "mode $KnownList->{data}[$row][1] ";
+			print $CONFIG "mode $KnownList->{data}[$row][1] ";
 		}
 		if ($KnownList->{data}[$row][2]) {
-			print CONFIG "channel $KnownList->{data}[$row][2] ";
+			print $CONFIG "channel $KnownList->{data}[$row][2] ";
 		}
 		if ($KnownList->{data}[$row][3]) {
-			print CONFIG "key $KnownList->{data}[$row][3] ";
+			print $CONFIG "key $KnownList->{data}[$row][3] ";
 		}
-		print CONFIG "; ";
+		print $CONFIG "; ";
 		if ($KnownList->{data}[$row][4]) {
-			print CONFIG "$IFConfig \@DEV\@ up; $DHClient \@DEV\@";
+			print $CONFIG "$IFConfig \@DEV\@ up; $DHClient \@DEV\@";
 		}
 		else {
-			print CONFIG "$IFUp \@DEV\@"
+			print $CONFIG "$IFUp \@DEV\@"
 		}
-		print CONFIG "\n";
+		print $CONFIG "\n";
 	}
-	close CONFIG;
+	close $CONFIG;
 }
 
 sub StartRoam {
-	system ("killall wlandetect; $WLanDetect -d -t $ScanInterval &");
+	system("killall wlandetect; $WLanDetect -d -t $ScanInterval &");
 	&UpdateRoaming
 }
 
 sub StopRoam {
-	system ("killall wlandetect");
+	system("killall wlandetect");
 	&UpdateRoaming;
 }
 
 sub SetInterval {
 	$ScanInterval = $ScanEntry->get_text;
-	system ("killall wlandetect; $WLanDetect -d -t $ScanInterval &");
+	system("killall wlandetect; $WLanDetect -d -t $ScanInterval &");
 }
 
 sub ConnectNow {
@@ -402,35 +402,31 @@ sub ConnectNow {
 	else {
 		push @command, "$IFUp $device"
 	}
-	$ToBash = join ("", @command);
-	print ("Sending $ToBash\n");
-	system ($ToBash);
+	$ToBash = join("", @command);
+	print("Sending $ToBash\n");
+	system($ToBash);
 	&UpdateStatus;
 }
 
 sub Disconnect {
-	system ("$IFDown $device");
+	system("$IFDown $device");
 	&UpdateStatus;
 }
 
 sub Dialog {
 # read file
 $FilePointer = pop @_;
-open FILE, "<$FilePointer";
-undef $/;
-my $content = <FILE>;
-close FILE;
-$/ = "\n";
+my $content = join('', cat_($FilePointer));
 # dump into a dialog
-$AboutWindow = Gtk2::Dialog->new ("Drakroam Info", $MainWindow,
+$AboutWindow = Gtk2::Dialog->new("Drakroam Info", $MainWindow,
                                     'destroy-with-parent',
                                     'gtk-ok' => 'none');
-$AboutLabel = Gtk2::Label->new ($content);
+$AboutLabel = Gtk2::Label->new($content);
 $DialogScroll = Gtk2::ScrolledWindow->new;
-#$DialogScroll->set_policy ('automatic', 'automatic');
+#$DialogScroll->set_policy('automatic', 'automatic');
 $DialogScroll->add_with_viewport($AboutLabel);
-$AboutWindow->vbox->add ($DialogScroll);
-$AboutWindow->signal_connect (response => sub { $_[0]->destroy });
+$AboutWindow->vbox->add($DialogScroll);
+$AboutWindow->signal_connect(response => sub { $_[0]->destroy });
 $AboutWindow->show_all;
 }