2003-12-07 23:05:28 -05:00
|
|
|
--- swatch.orig 2003-12-08 03:50:55.000000000 +0000
|
|
|
|
+++ swatch 2003-12-08 03:57:52.000000000 +0000
|
|
|
|
@@ -411,7 +411,7 @@ sub parse_command_line {
|
2000-09-17 16:01:40 -04:00
|
|
|
sub dprint {
|
|
|
|
my $msg_lev = shift;
|
|
|
|
my $msg = shift;
|
|
|
|
- print STDERR "DEBUG($msg_lev): $msg\n" if ($msg_lev & $opt_debug_level);
|
|
|
|
+ print STDERR "DEBUG($msg_lev): $msg\n" if ($msg_lev && $opt_debug_level);
|
|
|
|
}
|
|
|
|
|
2003-12-07 23:05:28 -05:00
|
|
|
####### dprint end #######
|
|
|
|
@@ -804,14 +804,11 @@ sub ring_bell {
|
2000-09-17 16:01:40 -04:00
|
|
|
'RINGS' => 1,
|
|
|
|
@_
|
|
|
|
);
|
|
|
|
- my $sun_terminal = (`uname -s` eq 'SunOS\n');
|
|
|
|
-
|
|
|
|
return if exists($args{'WHEN'}) and not inside_time_window($args{'WHEN'});
|
|
|
|
|
|
|
|
my $bells = $args{'RINGS'};
|
|
|
|
for ( ; $bells > 0 ; $bells-- ) {
|
|
|
|
print $BELL;
|
|
|
|
- sleep 1 if $sun_terminal; # SunOS needed this. Not sure about Solaris though
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|