mirror of https://github.com/hak5/openwrt-owl.git
parent
6d35e9d0f5
commit
6336817a13
|
@ -4,7 +4,7 @@ use strict;
|
||||||
sub get_ts($) {
|
sub get_ts($) {
|
||||||
my $path = shift;
|
my $path = shift;
|
||||||
my $ts = 0;
|
my $ts = 0;
|
||||||
open FIND, "find $path -not -path \\*.svn\\* -and -not -path \\*CVS\\* |";
|
open FIND, "find $path -not -path \\*.svn\\* -and -not -path \\*CVS\\* 2>/dev/null |";
|
||||||
while (<FIND>) {
|
while (<FIND>) {
|
||||||
open FILE, "<$_";
|
open FILE, "<$_";
|
||||||
my @stat = stat FILE;
|
my @stat = stat FILE;
|
||||||
|
|
Loading…
Reference in New Issue