* build-aux/announce-gen (sizes): Invoke du with -h instead
of --human. Accept leading white space in its output.
These changes are required to accommodate OS/X's du.
+2012-05-23 Akim Demaille <akim@lrde.epita.fr>
+
+ announce-gen: du -h is more portable than du --human
+ * build-aux/announce-gen (sizes): Invoke du with -h instead
+ of --human. Accept leading white space in its output.
+
2012-05-23 Akim Demaille <akim@lrde.epita.fr>
announce-gen: Improve diagnostics.
my %res;
foreach my $f (@file)
{
- my $cmd = "du --human $f";
+ my $cmd = "du -h $f";
my $t = `$cmd`;
# FIXME-someday: give a better diagnostic, a la $PROCESS_STATUS
$@
and (warn "command failed: '$cmd'\n"), $fail = 1;
chomp $t;
- $t =~ s/^([\d.]+[MkK]).*/${1}B/;
+ $t =~ s/^\s*([\d.]+[MkK]).*/${1}B/;
$res{$f} = $t;
}
return $fail ? undef : %res;