Program Repair Shop

Newlines

     265  my $usage = "NO ARGS!\
     266  This perl script finds all duplicate files by content, not file name\
     267  usage: $0 <options to find>\
     268  example: $0 . -mount\n\n";

One interesting thing about Perl's string syntax:
- Strings may contain newlines, so the \es are unnecessary
Drawback of this design:
- Perl has trouble detecting when a close quote is missing:

        Bareword found where operator expected at /tmp/wc line 2843,
         near "warn "Couldn't"
          (Might be a runaway multi-line "" string starting on line 16)

But we're stuck with it now
- So we may as well take the good with the bad:

          my $usage = "NO ARGS!
          This perl script finds all duplicate files by content, not file name
          usage: $0 <options to find>
          example: $0 . -mount\n\n";

Perl has too much punctuation at the best of times
So we may as well get rid of as much as we can