diff options
| author | Karl Berry <karl@freefriends.org> | 2020-03-27 22:17:02 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2020-03-27 22:17:02 +0000 |
| commit | 56767f4c282bd0d0df4b8423d74158db23c729ee (patch) | |
| tree | 3c0d466716801920e5ba30f5f378299e7cbf9dd3 | |
| parent | 0132baca5957e80c5eb5e3eeeec462ede4c2d7df (diff) | |
$Data::Dumper::Trailingcomma to avoid spurious diffs
git-svn-id: svn://tug.org/texlive/trunk@54592 c570f23f-e606-0410-a88d-b1316a301751
| -rwxr-xr-x | Master/tlpkg/bin/tl-update-ctan-mirrors | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Master/tlpkg/bin/tl-update-ctan-mirrors b/Master/tlpkg/bin/tl-update-ctan-mirrors index 8d59a406e6c..a3bf03e4f65 100755 --- a/Master/tlpkg/bin/tl-update-ctan-mirrors +++ b/Master/tlpkg/bin/tl-update-ctan-mirrors @@ -32,7 +32,9 @@ sub main { my %good_urls = read_mstate($ARGV[1]); my %ctan_sites = read_readme_mirror($ARGV[0], \%good_urls); $Data::Dumper::Indent = 1; - $Data::Dumper::Sortkeys = 1; # stable output + $Data::Dumper::Sortkeys = 1; # stable output + $Data::Dumper::Purity = 1; # make recursive structures safe + $Data::Dumper::Trailingcomma = 1; # avoid spurious diffs print Data::Dumper->Dump([\%ctan_sites], [qw(mirrors)]); return 0; |