X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=blobdiff_plain;f=generate;h=13809183f4050d6eafe2b2096716adad3dcd48eb;hb=a57defbff4c95ddb492dbd0c605611d11192dde5;hp=c9ade62c3299518c72847b8f8528ffb4764df199;hpb=32261735a134418b3bc26fc49d816e487b8338e5;p=subdirmk.git diff --git a/generate b/generate index c9ade62..1380918 100755 --- a/generate +++ b/generate @@ -474,6 +474,8 @@ sub process_tree() { oraw "include \$(SUBDIRMK_MAKEFILES)\n"; } +sub flmap ($) { local ($_) = @_; s{:(\d+)$}{ sprintf ":%10d", $1 }e; $_; } + sub print_varref_warnings () { foreach my $vn (sort keys %varref) { my $vv = $varref{$vn}; @@ -482,7 +484,9 @@ sub print_varref_warnings () { foreach my $amp ('', 1) { printf STDERR " saw %s%s at %s\n", ($amp ? '&' : ''), $vn, $_ - foreach sort keys %{ $vv->{$amp} }; + foreach + sort { flmap($a) cmp flmap($b) } + keys %{ $vv->{$amp} }; } } }