[Debburn-changes] r319 - nonameyet/trunk/3rd-party/dirsplit

Eduard Bloch blade at costa.debian.org
Sun Sep 17 19:17:09 UTC 2006


Author: blade
Date: 2006-09-17 19:17:09 +0000 (Sun, 17 Sep 2006)
New Revision: 319

Modified:
   nonameyet/trunk/3rd-party/dirsplit/dirsplit
Log:
Corrected dirsplit, printing of oversized coalesced objects

Modified: nonameyet/trunk/3rd-party/dirsplit/dirsplit
===================================================================
--- nonameyet/trunk/3rd-party/dirsplit/dirsplit	2006-09-17 15:18:58 UTC (rev 318)
+++ nonameyet/trunk/3rd-party/dirsplit/dirsplit	2006-09-17 19:17:09 UTC (rev 319)
@@ -118,8 +118,18 @@
 # check for pointless requests
 my $testsize=0;
 for(@sizes) {
-   die "Too large object(s) ($_) for the given max size: @{$names{$_}}\n" if($_>$max);
-
+   if($_>$max) {
+      print STDERR "Too large object(s) ($_) for the given max size($max):\n";
+      foreach my $item (@{$names{$_}}) {
+        if(ref($item) eq "ARRAY") {
+           print ("{\n\t".join("\n\t",@{$item})."\n}\n");
+        }
+        else {
+           print "$item\n";
+        }
+      }
+      die "Aborting...\n";
+   }
    $testsize+=$_;
 }
 
@@ -459,7 +469,7 @@
  -a|--accuracy NUMBER (1=faster, large number=better efficiency, default: 500)
  -S|--simple   Simple/stupid/alphabetic mode
  -T|--input    FILENAME (or - for STDIN):  List with sizes and paths, try:
-               find dir -type f -printf \"%s %p\n\"
+               find dir -type f -printf \"%s %p\\n\"
                to get an example. Avoid duplicates! Unit suffixes are allowed.
  -h|--help     Show this option summary
  -v|--verbose  More verbosity




More information about the Debburn-changes mailing list