29 lines
1.1 KiB
Perl
29 lines
1.1 KiB
Perl
--- lib/AmphetaDesk/Utilities.pm.orig Sun Oct 9 19:45:59 2005
|
|
+++ lib/AmphetaDesk/Utilities.pm Sun Oct 9 19:51:44 2005
|
|
@@ -112,7 +112,7 @@
|
|
$hour = sprintf "%02.0d", $hour;
|
|
|
|
# print the entry to our log file.
|
|
- print LOG "[$hour:$min:$sec] $message\n";
|
|
+ print LOG "[$hour:$min:$sec] $message\n" if fileno LOG;
|
|
|
|
# and save the message in our response log
|
|
# if the message is also being sent to the gui.
|
|
@@ -127,7 +127,7 @@
|
|
$os = "MacOS" if $^O =~ /Mac/;
|
|
$os = "Windows" if $^O =~ /Win/;
|
|
$os = "Linux" unless defined $os;
|
|
- my $packname = "AmphetaDesk::OS::";
|
|
+ my $packname = "AmphetaDesk::AmphetaDesk::OS::";
|
|
my $funcname = "::gui_note";
|
|
&{ $packname. $os . $funcname }($message) if $gui;
|
|
}
|
|
@@ -151,7 +151,7 @@
|
|
$os = "MacOS" if $^O =~ /Mac/;
|
|
$os = "Windows" if $^O =~ /Win/;
|
|
$os = "Linux" unless defined $os;
|
|
- my $packname = "AmphetaDesk::OS::";
|
|
+ my $packname = "AmphetaDesk::AmphetaDesk::OS::";
|
|
my $funcname = "::gui_note";
|
|
&{ $packname. $os . $funcname }($message);
|
|
}
|