Re^2: JAPH palindrome.

[JavaFan]

if ($half1 =~ $flip)

Really? It doesn't matter if $flip contain regexp special characters, or if $flip matches $half1 partially?

I'm also wondering why you bother splitting the text into two. Wouldn't something like:

use Test::More;
use autodie;
open my $fh, "<", $file;
undef $/;
$text = <$fh>;
chomp $text;
$text =~ s/\s+//g if $lax_in_whitespace;
ok $text eq reverse $text, "palindrome";
done_testing;

be enough?

[jffry]

Regarding splitting and flipping it, I guess I was too hung up on the mental steps I was taking to create a palindrome in the first place. I must have coded some analog of what my brain was doing. Twelve hours later, it looks very foolish.

The =~ vs eq bug is just an outright screw up. I have no excuse for that one.