path: root/t/t4034/perl/expect

<BOLD>diff --git a/pre b/post<RESET>
<BOLD>index f6610d3..e8b72ef 100644<RESET>
<BOLD>--- a/pre<RESET>
<BOLD>+++ b/post<RESET>
<CYAN>@@ -4,8 +4,8 @@<RESET>

package Frotz;<RESET>
sub new {<RESET>
	my <GREEN>(<RESET>$class<GREEN>, %opts)<RESET> = <RED>shift<RESET><GREEN>@_<RESET>;
	return bless { <GREEN>xyzzy => "nitfol", %opts<RESET> }, $class;
}<RESET>

__END__<RESET>