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

Use fpfmt here.

Browse Source
This commit is contained in:
Elijah Perrault committed 2011-02-27 16:18:38 -07:00
1 parent b0fc9065f5
commit 66cc08fd87
1 file changed
+2 -2
Download Patch File Download Diff File Expand all files Collapse all files
lib/API/Log.pm
+2 -2
View File
@@ -10,7 +10,7 @@ use POSIX;
use Time::Local; use Time::Local;
use Exporter; use Exporter;
use base qw(Exporter); use base qw(Exporter);
use API::Std qw(conf_get); use API::Std qw(conf_get fpfmt);
our @EXPORT_OK = qw(println dbug alog slog); our @EXPORT_OK = qw(println dbug alog slog);
@@ -85,7 +85,7 @@ sub expire_logs
} }
# Iterate through each logfile. # Iterate through each logfile.
foreach my $file (glob "$Auto::Bin/../var/*") { foreach my $file (glob fpfmt("$Auto::Bin/../var/*")) {
my (undef, $file) = split 'bin/../var/', $file; ## no critic qw(BuiltinFunctions::ProhibitStringySplit) my (undef, $file) = split 'bin/../var/', $file; ## no critic qw(BuiltinFunctions::ProhibitStringySplit)
# Convert filename to UNIX time. # Convert filename to UNIX time.