Oh geez...

I wrote a quick script to makes sure File::Compare was working on the activeperl on the windows server I was testing. It printed They're equal if the files were equal and They're NOT if they were not. Then the "NOT" was bothering me, so I changed it to "D:<" Then I got side-tracked, and came back to the file comparison test.

C:\temp>echo OMGWTFBBQ > wtf

C:\temp>echo OMGWTFBBQ > omg

C:\temp>test.pl
Missing right curly or square bracket at C:\temp\test.pl line 9, at end of line
syntax error at C:\temp\test.pl line 9, at EOF
Execution of C:\temp\test.pl aborted due to compilation errors.

C:\temp>notepad test.pl

C:\temp>test.pl
Undefined subroutine &main::compare called at C:\temp\test.pl line 6.

C:\temp>notepad test.pl

C:\temp>test.pl
They're equal

C:\temp>echo PINEAPPLES > wtf

C:\temp>test.pl
D:<

At this point I shot lemonade out of my nose. Now I'm glad I didn't spike it.

Yeah... I'm weird.