sydney/Autobot
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Replaced println with say

Browse Source
This commit is contained in:
Matthew Barksdale committed 2011-02-19 04:04:04 -05:00
1 parent be43449e74
commit c330a59474
1 file changed
+8 -7
Download Patch File Download Diff File Expand all files Collapse all files
lib/Lib/Auto.pm
+8 -7
View File
@@ -4,11 +4,12 @@
package Lib::Auto; package Lib::Auto;
use strict; use strict;
use warnings; use warnings;
use feature qw(say);
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Sys::Hostname; use Sys::Hostname;
use feature qw(switch); use feature qw(switch);
use API::Std qw(hook_add conf_get err); use API::Std qw(hook_add conf_get err);
use API::Log qw(println dbug alog); use API::Log qw(dbug alog);
our $VERSION = 3.000000; our $VERSION = 3.000000;
# Core events. # Core events.
@@ -19,7 +20,7 @@ API::Std::event_add('on_rehash');
sub checkver sub checkver
{ {
if (!$Auto::NUC and Auto::RSTAGE ne 'd') { if (!$Auto::NUC and Auto::RSTAGE ne 'd') {
println '* Connecting to update server...'; say '* Connecting to update server...';
my $uss = IO::Socket::INET->new( my $uss = IO::Socket::INET->new(
'Proto' => 'tcp', 'Proto' => 'tcp',
'PeerAddr' => 'dist.xelhua.org', 'PeerAddr' => 'dist.xelhua.org',
@@ -37,11 +38,11 @@ sub checkver
} }
elsif ($v eq 'version') { elsif ($v eq 'version') {
if (Auto::VER.q{.}.Auto::SVER.q{.}.Auto::REV.Auto::RSTAGE ne $c) { if (Auto::VER.q{.}.Auto::SVER.q{.}.Auto::REV.Auto::RSTAGE ne $c) {
println('!!! NOTICE !!! Your copy of Auto is outdated. Current version: '.Auto::VER.q{.}.Auto::SVER.q{.}.Auto::REV.Auto::RSTAGE.' - Latest version: '.$c); say('!!! NOTICE !!! Your copy of Auto is outdated. Current version: '.Auto::VER.q{.}.Auto::SVER.q{.}.Auto::REV.Auto::RSTAGE.' - Latest version: '.$c);
println('!!! NOTICE !!! You can get the latest Auto by downloading '.$dll); say('!!! NOTICE !!! You can get the latest Auto by downloading '.$dll);
} }
else { else {
println('* Auto is up-to-date.'); say('* Auto is up-to-date.');
} }
} }
} }
@@ -261,7 +262,7 @@ sub signal_perlwarn
my ($warnmsg) = @_; my ($warnmsg) = @_;
$warnmsg =~ s/(\n|\r)//xsmg; $warnmsg =~ s/(\n|\r)//xsmg;
alog 'Perl Warning: '.$warnmsg; alog 'Perl Warning: '.$warnmsg;
if ($Auto::DEBUG) { println 'Perl Warning: '.$warnmsg; } if ($Auto::DEBUG) { say 'Perl Warning: '.$warnmsg; }
return 1; return 1;
} }
@@ -276,7 +277,7 @@ sub signal_perldie
foreach (keys %Auto::SOCKET) { API::IRC::quit($_, 'A fatal error occurred!'); } foreach (keys %Auto::SOCKET) { API::IRC::quit($_, 'A fatal error occurred!'); }
API::Std::event_run('on_shutdown'); API::Std::event_run('on_shutdown');
sleep 1; sleep 1;
println 'FATAL: '.$diemsg; say 'FATAL: '.$diemsg;
exit; exit;
} }