+
+# ----------------------------------------------------------------------------
+# Package to collect data as an output file from stupid modules, who can only
+# write to files...
+# ----------------------------------------------------------------------------
+package MemFile;
+
+sub TIEHANDLE {
+ my $class = shift;
+ my $self = {};
+ bless ($self,$class);
+ $self->{buff} = "";
+ return ($self);
+}
+
+sub PRINT {
+ my $self = shift;
+ for (@_) {
+ $self->{buff} .= $_;
+ }
+}
+
+sub READLINE {
+ my $self = shift;
+ my $res;
+ return (undef) unless ($self->{buff});
+ ($res,$self->{buff}) = split (/\n/,$self->{buff},2);
+ return ($res."\n");
+}