#!/usr/bin/env perl # $Id$ # Public domain. Originally written 2008, Karl Berry. # Compare two files considering CR, LF, and CRLF as equivalent. # Used in place and tlpkg-ctan-check in TeX Live. exit (&main ()); sub main { if (@ARGV != 2) { warn <) { s/\r\n?/\n/g; #warn "line is |$_|"; $ret .= $_; } close (FILE) || warn "close($fname) failed: $!"; return $ret; }