Checking if your kit is complete... Looks good Writing Makefile for Text::Starfish cp Starfish.pm blib/lib/Text/Starfish.pm cp starfish blib/script/starfish /home/cpanrun/tmp/5.10.0/bin/perl "-MExtUtils::MY" -e "MY->fixin(shift)" blib/script/starfish Manifying blib/man3/Text::Starfish.3 PERL_DL_NONLAZY=1 /home/cpanrun/tmp/5.10.0/bin/perl "-Iblib/lib" "-Iblib/arch" test.pl 1..5 # Running under perl version 5.010000 for linux # Current time local: Fri Nov 30 13:39:17 2007 # Current time GMT: Fri Nov 30 21:39:17 2007 # Using Test.pm version 1.25 ok 1 not ok 2 # Test 2 got: "\nTesting Hook adding:\n\n#\n\n# some normal text\n\nwhile (/\\b$Qrel\\b[ ,\\w]*<${wQcatSD}(\\w*)>/g) { and so on \"d$1\";}\nwhile (/\\b$Qrel\\b[ ,\\w]*<${wQcatSDii}(\\w*)>/ig) { and so on \"d$1\";}\nwhile (/\\b$Qrel\\b[ ,\\w]*<${wQcatSDi}(\\w*)>/ig) { NEW \"d$1\";}\nwhile (/\\b$Qrel\\b[ ,\\w]*<${wQcat}(\\w*)>/g) { and so on \"d$1\";}\n\nTest finished.\n\n\n\n# This is a comment\n\n # This is not a comment\n" (test.pl at line 154) # Expected: "\nTesting Hook adding:\n\n#\n\n# some normal text\n\nwhile (/\\b$Qrel\\b[ ,\\w]*<${wQcatSD}(\\w*)>/g) { and so on \"d$1\";}\nwhile (/\\b$Qrel\\b[ ,\\w]*<${wQcatSDii}(\\w*)>/ig) { and so on \"d$1\";}\nwhile (/\\b$Qrel\\b[ ,\\w]*<${wQcatSDi}(\\w*)>/ig) { NEW \"d$1\";}\nwhile (/\\b$Qrel\\b[ ,\\w]*<${wQcat}(\\w*)>/g) { and so on \"d$1\";}\n\nTest finished.\n\n\n\n\n\n # This is not a comment\n" # Line 17 is changed: # - "\n" # + "# This is a comment\n" # test.pl line 154 is: if (! ok(getfile($f2), getfile($f1)) ) Files: ../testfiles/01.out and 01.out not ok 3 # Test 3 got: "\n
\n