[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