Andrew's git - gitweb.git/blob - 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
   7package Frotz;<RESET>
   8sub 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>