1#!/usr/bin/perl -I. 2 3use Text::Wrap; 4 5print "1..1\n"; 6 7$Text::Wrap::columns = 1; 8eval { wrap('', '', 'H4sICNoBwDoAA3NpZwA9jbsNwDAIRHumuC4NklvXTOD0KSJEnwU8fHz4Q8M9i3sGzkS7BBrm 9OkCTwsycb4S3DloZuMIYeXpLFqw5LaMhXC2ymhreVXNWMw9YGuAYdfmAbwomoPSyFJuFn2x8 10Opr8bBBidccAAAA'); }; 11 12if ($@) { 13 my $e = $@; 14 $e =~ s/^/# /gm; 15 print $e; 16} 17print $@ ? "not ok 1\n" : "ok 1\n"; 18 19