| CC: | taskforest-discuss [...] lists.sourceforge.not |
| Subject: | Does not work with perl 5.15 |
Attached is a patch to fix it.
See http://perldoc.perl.org/perl5140delta.html#Tie-functions-on-scalars-holding-typeglobs
for more information.
| Subject: | open_vGpmNyUf.txt |
diff -rup TaskForest-1.37-uzb8QLs-orig/lib/TaskForest/StringHandle.pm TaskForest-1.37-uzb8QL/lib/TaskForest/StringHandle.pm
--- TaskForest-1.37-uzb8QLs-orig/lib/TaskForest/StringHandle.pm 2009-05-24 23:08:11.000000000 -0700
+++ TaskForest-1.37-uzb8QL/lib/TaskForest/StringHandle.pm 2011-11-04 17:46:05.000000000 -0700
@@ -47,7 +47,7 @@ BEGIN {
# this is a constructor
sub start {
my ($class, $handle) = @_;
- my $obj = tie($handle, 'TaskForest::StringHandleTier');
+ my $obj = tie(*$handle, 'TaskForest::StringHandleTier');
my $self = { obj => $obj, handle => $handle};
bless $self, $class;
}