X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/931846c232a49cb1a195b40be80e73f0e2f70609..HEAD:/perl.inc.pl

diff --git a/perl.inc.pl b/perl.inc.pl
index 9f18c34..e26cbcd 100644
--- a/perl.inc.pl
+++ b/perl.inc.pl
@@ -1,6 +1,7 @@
 use utf8;
 use strict;
 
+my $wbr = "\N{ZERO WIDTH SPACE}";
 +{
 	v5.004 => {
 		release => '1997-05-15',
@@ -85,7 +86,7 @@ use strict;
 			['Memoize' => 'remember function results, trading space for time', 'memoize "stat"'],
 			['MIME::Base64' => 'base64 encoded strings as in email attachments'],
 			['Test::More' => 'modern framework for unit testing', 'is $got, $expected'],
-			['Time::HiRes' => 'high resolution timers', '$μs = [gettimeofday]; sleep .1; $elapsed = tv_interval $μs'],
+			['Time::HiRes' => 'high resolution timers', '$μs = [gettimeofday]; sleep .1;'.$wbr.' $elapsed = tv_interval $μs'],
 		],
 		release => '2002-07-18',
 		distro => {
@@ -123,9 +124,9 @@ use strict;
 		modules => [
 			[autodie => 'replace builtin functions to throw exceptions instead of returning failure', 'eval {open ...} or $@->matches("open") || die'],
 			# overloading
-			['IO::Compress::Zip' => 'various file compression standards', 'zip IO::Uncompress::Gunzip->new("test.gz") => "recompressed.zip"'],
+			['IO::Compress::Zip' => 'various file compression standards', 'zip IO::Uncompress::Gunzip->new("test.gz")'.$wbr.' => "recompressed.zip"'],
 			['Time::Piece' => 'timestamps as objects', 'localtime->year > 1900'],
-			['File::Fetch' => 'generic data retrieval/download', 'File::Fetch->new(uri => "http://localhost/")->fetch(to => \$slurp)'],
+			['File::Fetch' => 'generic data retrieval/download', 'File::Fetch->new(uri => "http://localhost/")'.$wbr.'->fetch(to => \$slurp)'],
 		],
 		release => '2007-12-18',
 		distro => {