# released under the GNU GPL
package util;
-use Data::Dumper;
-
#####################################################################
# load a data structure from a file (as saved with SaveStructure)
sub LoadStructure($)
# save a data structure into a file
sub SaveStructure($$)
{
- my($filename) = shift;
- my($v) = shift;
- FileSave($filename, Dumper($v));
+ require Data::Dumper;
+ my($filename) = shift;
+ my($v) = shift;
+ FileSave($filename, Data::Dumper::Dumper($v));
}
#####################################################################
return 0;
}
-sub dump($)
-{
- print Dumper shift;
-}
-
1;