mirror of
https://github.com/wesnoth/wesnoth
synced 2025-04-25 16:21:40 +00:00
26 lines
934 B
Perl
Executable File
26 lines
934 B
Perl
Executable File
#!/usr/bin/perl -pi
|
|
|
|
# Copyright (C) 2005 by ott
|
|
# Part of the Battle for Wesnoth Project http://wesnoth.org/
|
|
#
|
|
# This program is free software; you can redistribute it and/or modify
|
|
# it under the terms of the GNU General Public License.
|
|
# This program is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY.
|
|
#
|
|
# See the COPYING file for more details.
|
|
|
|
# codeclean: clean up source code
|
|
# feed this a list of files to update as arguments, eg. from fgrep -r
|
|
# or find . -name '*.[ch]pp' -print
|
|
|
|
$changes += s/\r$// # de-DOS-ify
|
|
+ s/ +\t/\t/g # remove spaces hidden by tabs
|
|
+ s/[\t ]+$// # remove trailing whitespace
|
|
+ s#wesnoth\.whitevine\.net/?#www.wesnoth.org/#g
|
|
+ s#davidnwhite\@optusnet\.com\.au#davidnwhite\@verizon.net#g;
|
|
+ s#davidnwhite\@comcast\.net#davidnwhite\@verizon.net#g;
|
|
if (eof and index($_, "\n") < 0) { s/$/\n/; ++$changes } # ensure EOL at EOF
|
|
|
|
END { print "$changes made\n"; }
|