michael/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2026-05-04 22:30:33 +01:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

strict/warn

Browse Source
This commit is contained in:
Joe Cooper
2016-06-16 19:24:46 -07:00
parent eb6b294bed
commit f818ead2db
1 changed files with 9 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
ajaxterm/index.cgi
View File

@@ -40,9 +40,9 @@ my $pid = fork();
if (!$pid) {
chdir("$module_root_directory/ajaxterm");
my $logfile = $ENV{'WEBMIN_VAR'}.'/ajaxterm.log';
untie(*STDIN); open(*STDIN, "<", "/dev/null");
untie(*STDOUT); open(*STDOUT, ">", $logfile);
untie(*STDERR); open(*STDERR, ">", $logfile);
untie(*STDIN); open(STDIN, "<", "/dev/null");
untie(*STDOUT); open(STDOUT, ">", $logfile);
untie(*STDERR); open(STDERR, ">", $logfile);
my $shell = &has_command("bash") ||
&has_command("sh") || "/bin/sh";
my @uinfo = getpwnam("root");
@@ -55,10 +55,11 @@ if (!$pid) {
# Wait for it to come up
my $try = 0;
my $TEST2;
no strict "subs"; # TEST2 is weird. I dunno how to make it lexical without breaking.
no warnings;
while(1) {
my $err;
&open_socket("localhost", $port, $TEST2, \$err);
&open_socket("localhost", $port, TEST2, \$err);
last if (!$err);
$try++;
if ($try > 30) {
@@ -66,7 +67,9 @@ while(1) {
}
sleep(1);
}
close($TEST2);
close(TEST2);
use strict "subs";
use warnings;
# Show the iframe
print "<center>\n";