[Catalyst-commits] r6637 - trunk/examples/CatPaste/lib/CatPaste/Schema

[jshirley at dev.catalyst.perl.org]

Author: jshirley
Date: 2007-08-09 22:29:46 +0100 (Thu, 09 Aug 2007)
New Revision: 6637

Modified:
   trunk/examples/CatPaste/lib/CatPaste/Schema/Paste.pm
Log:
Fixing the chomp/highlight line

Modified: trunk/examples/CatPaste/lib/CatPaste/Schema/Paste.pm
===================================================================
--- trunk/examples/CatPaste/lib/CatPaste/Schema/Paste.pm	2007-08-09 21:07:47 UTC (rev 6636)
+++ trunk/examples/CatPaste/lib/CatPaste/Schema/Paste.pm	2007-08-09 21:29:46 UTC (rev 6637)
@@ -54,7 +54,7 @@
                     "&" => "&",
                     " " => " ",
                     "\t" => "    ",
-                    "\n" => "<br />\n",
+                    "\n" => "\n",
                 },
                 format_table => {
                     Alert => ["<span class=\"alert\">", "</span>"],
@@ -82,7 +82,6 @@
     }; if ( $@ ) { $hl = undef; $no_hl = 1; }
     my $output = '';
     while ( my $in = <$fh> ) {
-        chomp $in;
         $output .= ( $hl and not $no_hl ) ? $hl->highlightText( $in ) : $in;
     }
     close($fh);