This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
toke.c: Remove unnecessary condition
authorFather Chrysostomos <sprout@cpan.org>
Mon, 25 Aug 2014 05:42:51 +0000 (22:42 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 25 Aug 2014 05:49:19 +0000 (22:49 -0700)
commit35c2140b05a9a1683ea74d158942a454ab66b443
tree0c1f3e3129369551f721a3ee880b224c694e809d
parentacb187b49e0841a5b6410cfd34d77b8e8a6c242c
toke.c: Remove unnecessary condition

This code skips over a quoted string, handling escapes.  And to han-
dle escapes it skips past the character following a backslash if that
character is itself a backslash or the quote character.  Skipping past
the character after the backslash unconditionally, regardless of what
it is, has the same effect and uses less code.

This change shrunk the .o file.

Before:
-rw-r--r--  1 sprout  staff  671148 Aug 24 20:28 toke.o
After:
-rw-r--r--  1 sprout  staff  671100 Aug 24 22:37 toke.o
toke.c