X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;ds=sidebyside;f=bin%2Fbigfiles.pl;h=1918de1a90f08bb70e2ecf16956903f385852880;hb=cdf82bd9260a447239dd1aba26b107f7804e1a81;hp=ec9f2a26f13317a50dd264963835dc3eacd8f7d7;hpb=020a4a5ea2be725b155cae3a2cadc9aba3911b9b;p=clearscm.git

diff --git a/bin/bigfiles.pl b/bin/bigfiles.pl
index ec9f2a2..1918de1 100755
--- a/bin/bigfiles.pl
+++ b/bin/bigfiles.pl
@@ -43,7 +43,7 @@ sub Bigfiles {
 
   foreach (@dirs) {
     next if !-d "$_";
-    my $cmd	= "find \"$_\" -xdev -type f -size +$size -exec ls -lLGQ {} \\;";
+    my $cmd	= "find \"$_\" -xdev -type f -size +$size -exec ls -lLG {} \\;";
     my @lines	= `$cmd`;
 
     foreach (@lines) {
@@ -51,7 +51,8 @@ sub Bigfiles {
 
       my %info;
 
-      if (/\S+\s+\d+\s+(\S+)\s+(\d+).*\"\.\/(.*)\"/) {
+      #if (/\S+\s+\d+\s+(\S+)\s+(\d+).*\"\.\/(.*)\"/) {
+      if (/\S+\s+\d+\s+(\S+)\s+\S+ \S+\s+(\d+)\s+\S+\s+\d+\s+\S+\s+(\S+)/){
 	$info {user}	= $1;
 	$info {filesize}	= $2;
 	$info {filename}	= $3;