skip PDF files (mdv bug #51128)

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;