From e990e78cca442a35f77f89a927e5c7dcb29438f6 Mon Sep 17 00:00:00 2001 From: Ryan Voots Date: Mon, 28 Feb 2011 02:18:01 -0500 Subject: [PATCH] adding this for globs on {} --- lib/eval.pl | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lib/eval.pl b/lib/eval.pl index 50c755b..ffe3061 100755 --- a/lib/eval.pl +++ b/lib/eval.pl @@ -1,5 +1,7 @@ #!/usr/bin/perl +use lib '/home/ryan/perl5/lib/perl5'; + use strict; use Data::Dumper; use Scalar::Util; #Required by Data::Dumper @@ -31,6 +33,7 @@ use utf8; eval "\$\343\201\257 = 42"; # attempt to automatically load the utf8 use charnames qw(:full); use PerlIO; use PerlIO::scalar; +use Text::ParseWords; # Required for perl_deparse use B::Deparse; @@ -42,7 +45,7 @@ require 'bytes_heavy.pl'; use Tie::Hash::NamedCapture; - {no warnings 'constant'; + {#no warnings 'constant'; uc "\x{666}"; #Attempt to load unicode libraries. } binmode STDOUT, ":utf8"; # Enable utf8 output.