|
Check-in Number:
|
4833 | |
| Date: |
2004-Nov-08 16:32:59 (local)
2004-Nov-08 15:32:59 (UTC) |
| User: | rse |
| Branch: | |
| Comment: |
use strict-OO style |
| Tickets: |
|
| Inspections: |
|
| Files: |
|
ossp-pkg/quos/openpkg-rdf2sql.pl 1.2 -> 1.3
--- openpkg-rdf2sql.pl 2004/11/08 15:26:01 1.2
+++ openpkg-rdf2sql.pl 2004/11/08 15:32:59 1.3
@@ -38,12 +38,14 @@
$Data::Dumper::Indent = 1;
$Data::Dumper::Terse = 1;
-my $rdf = XML::Simple::XMLin(
+my $xml = new XML::Simple;
+my $rdf = $xml->XMLin(
"openpkg.rdf",
KeepRoot => 1,
ForceContent => 0,
ForceArray => 1,
);
+undef $xml;
#print Dumper($xml);
#exit(0);
|
|
