dom and path weren't being stored in the newly constructed object.
---
lib/Sys/VirtV2V/Connection/LibVirtXML.pm | 12 ++++--------
1 files changed, 4 insertions(+), 8 deletions(-)
diff --git a/lib/Sys/VirtV2V/Connection/LibVirtXML.pm
b/lib/Sys/VirtV2V/Connection/LibVirtXML.pm
index 5d0ebbc..874946a 100644
--- a/lib/Sys/VirtV2V/Connection/LibVirtXML.pm
+++ b/lib/Sys/VirtV2V/Connection/LibVirtXML.pm
@@ -64,8 +64,8 @@ sub new
my ($path) = @_;
- my %obj = ();
- my $self = \%obj;
+ my $self = {};
+ $self->{path} = $path;
bless($self, $class);
@@ -88,15 +88,11 @@ sub _get_dom
path => $self->{path}, error => $!)));
# Parse the input file
- my $parser = new XML::DOM::Parser;
- my $dom;
- eval { $dom = $parser->parse ($xml); };
+ eval { $self->{dom} = new XML::DOM::Parser->parse ($xml); };
# Display any parse errors
- die(user_message(__x("Unable to parse {path}: {error}",
+ die(user_message(__x("Unable to parse domain from file {path}: {error}",
path => $self->{path}, error => $@))) if ($@);
-
- return $dom;
}
=back
--
1.6.6