# HG changeset patch # User HackBot # Date 1441472183 0 # Node ID 685e004a337236f21ced55568225dbeba04bdc4f # Parent de7749cfb1d9d2221dc5835228f3d5bd95d4a11e ` sed -i -e \'s/perl/perl -CSDA/\' bin/thanks diff -r de7749cfb1d9 -r 685e004a3372 bin/thanks --- a/bin/thanks Thu Sep 03 08:03:54 2015 +0000 +++ b/bin/thanks Sat Sep 05 16:56:23 2015 +0000 @@ -1,2 +1,2 @@ -#!/usr/bin/perl +#!/usr/bin/perl -CSDA $_ = (join " ", @ARGV) || `words`; s/^\s+|\s+$//g; print "Thanks, $_. "; if (/[aeiouyAEIOUY]/) { s/^[^aeiouyAEIOUY]*/Th/; } else { s/^./T/; } print "$_."; \ No newline at end of file