#!/bin/sh
# Deletes trailing whitespace in-place in the passed-in files.
# Sample syntax:
#   $0 *.cpp

perl -pi -e 's/\s+$/\n/' $ifsjoin(Argv)
(CommandList children:[(C {(perl)} {(-pi)} {(-e)} {(SQ <"s/\\s+$/\\n/">)} {($ VSub_Star "$*")})])