t/t4034/perl/expect

   1 <BOLD>diff --git a/pre b/post<RESET>
   2 <BOLD>index f6610d3..e8b72ef 100644<RESET>
   3 <BOLD>--- a/pre<RESET>
   4 <BOLD>+++ b/post<RESET>
   5 <CYAN>@@ -4,8 +4,8 @@<RESET>
   6
   7 package Frotz;<RESET>
   8 sub new {<RESET>
   9         my <GREEN>(<RESET>$class<GREEN>, %opts)<RESET> = <RED>shift<RESET><GREEN>@_<RESET>;
  10         return bless { <GREEN>xyzzy => "nitfol", %opts<RESET> }, $class;
  11 }<RESET>
  12
  13 __END__<RESET>