All the Perl that's Practical to Extract and Report

ugly oneliner

richardc on 2002-04-19T18:18:35

perl -pe '/^[+-]{3}/ || /^\@\@/ || s/$/\r/'

Part of this larger monstrosity:

cat 14416 | filterdiff -i 'perl/win32/Makefile' -i 'perl/win32/makefile.mk' | perl -pe '/^[+-]{3}/ || /^\@\@/ || s/$/\r/'

For unbreaking the patches that go to perl.perl5.changes for application to files with CRLF endings.