7 |
# $Id$ |
# $Id$ |
8 |
# |
# |
9 |
# $Log$ |
# $Log$ |
10 |
|
# Revision 1.2 2003/12/05 05:05:53 joko |
11 |
|
# + minor fix - use IO::File instead if plain IO |
12 |
|
# |
13 |
# Revision 1.1 2003/05/06 14:36:48 joko |
# Revision 1.1 2003/05/06 14:36:48 joko |
14 |
# initial commit - preliminary (didn't work out as expected) |
# initial commit - preliminary (didn't work out as expected) |
15 |
# |
# |
178 |
# V2 - using the classic XML::Parser together with its companion, XML::Writer |
# V2 - using the classic XML::Parser together with its companion, XML::Writer |
179 |
if ($self->{options}->{engine} eq "XMLParser") { |
if ($self->{options}->{engine} eq "XMLParser") { |
180 |
|
|
181 |
use IO; |
use IO::File; |
182 |
my $output = IO::File->new(">output.xml"); |
my $output = IO::File->new(">output.xml"); |
183 |
|
|
184 |
# These return instances which are not required. => overhead! |
# These return instances which are not required. => overhead! |