ZoneMinder
/
zoneminder
mirror of https://github.com/ZoneMinder/zoneminder.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Fix File=> File::Find

pull/2077/head
Isaac Connor 2017-10-12 11:42:49 -07:00
parent e6c0add17e
commit 5c7203f2bb
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scripts/ZoneMinder/lib/ZoneMinder/Event.pm
View File

@ -32,7 +32,7 @@ require ZoneMinder::Base;
require ZoneMinder::Object; require ZoneMinder::Object;
require ZoneMinder::Storage; require ZoneMinder::Storage;
require Date::Manip; require Date::Manip;
require File; require File::Find;
#our @ISA = qw(ZoneMinder::Object); #our @ISA = qw(ZoneMinder::Object);
use parent qw(ZoneMinder::Object); use parent qw(ZoneMinder::Object);
@ -365,7 +365,7 @@ sub DiskUsage {
} }
if ( ! defined $_[0]{DiskUsage} ) { if ( ! defined $_[0]{DiskUsage} ) {
my $size = 0; my $size = 0;
File::find( sub { $size += -f $_ ? -s _ : 0 }, $_[0]->Path() ); File::Find::find( sub { $size += -f $_ ? -s _ : 0 }, $_[0]->Path() );
$_[0]{DiskUsage} = $size; $_[0]{DiskUsage} = $size;
} }
} }