diff options
| -rw-r--r-- | ChangeLog | 6 | ||||
| -rwxr-xr-x | build-aux/announce-gen | 4 |
2 files changed, 8 insertions, 2 deletions
@@ -1,5 +1,11 @@ 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. * build-aux/announce-gen: When parsing command line options, prefer "announce-gen: option --release-type requires an argument" diff --git a/build-aux/announce-gen b/build-aux/announce-gen index 4d0b82cb2d..ff581fac67 100755 --- a/build-aux/announce-gen +++ b/build-aux/announce-gen @@ -103,13 +103,13 @@ sub sizes (@) 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; |