aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xfix_eol7
1 files changed, 6 insertions, 1 deletions
diff --git a/fix_eol b/fix_eol
index 4381cf5..885dcc4 100755
--- a/fix_eol
+++ b/fix_eol
@@ -31,7 +31,12 @@ sub convert {
# check if first line has less than 80 characters and ends with \r\n
open(my $in, '<', $_) or die "Unable to open file $_: $!";
my $line = <$in>;
- if (defined $line && length($line) <= 80 && $line =~ s/\r\n$/\n/) {
+ if (
+ defined $line &&
+ length($line) <= 80 &&
+ $line !~ /^%PDF/ &&
+ $line =~ s/\r\n$/\n/
+ ) {
# process all file
my $out = File::Temp->new(DIR => '.', UNLINK => 0);
print $out $line;