chomp tied variables

diff --git a/lib/PXElator/server.pm b/lib/PXElator/server.pm
index 089851a..84eab14 100644 (file)
--- a/lib/PXElator/server.pm
+++ b/lib/PXElator/server.pm
@@ -89,7 +89,9 @@ sub STORE {
 sub FETCH {
        warn dump @_;
        my $self = shift;
-       read_file $$self->{path};
+       my $v = read_file $$self->{path};
+       chomp($v);
+       $v;
 }
 
 3;