@@ -1,5 +1,19 @@
Revision history for Perl extension XML::DT.
+0.67 Mar 15, 2015
+ - Link to public SVN repo (thanks Gabor Szabo for pushing)
+
+0.66 Aug 15, 2014
+ - fix part of the fix that wasn't fixed (Debian community)
+
+0.65 Aug 1, 2014
+ - fix the fix
+ Thanks to Olly Betts (Debian community)
+
+0.64 Jul 31, 2014
+ - fix the way temporary files are created.
+ Thanks to Damyan Ivanov (Debian community)
+
0.63 Mar 25, 2013
- mkdtskel now uses strict/warnings
@@ -4,7 +4,7 @@
"Jose Joao <jj@di.uminho.pt>"
],
"dynamic_config" : 1,
- "generated_by" : "ExtUtils::MakeMaker version 6.64, CPAN::Meta::Converter version 2.120921",
+ "generated_by" : "ExtUtils::MakeMaker version 7.04, CPAN::Meta::Converter version 2.150001",
"license" : [
"perl_5"
],
@@ -43,5 +43,12 @@
}
},
"release_status" : "stable",
- "version" : "0.63"
+ "resources" : {
+ "repository" : {
+ "type" : "svn",
+ "url" : "https://natura.di.uminho.pt/svn/main/xml/XML-DT",
+ "web" : "https://natura.di.uminho.pt/svn/main/xml/XML-DT"
+ }
+ },
+ "version" : "0.67"
}
@@ -3,26 +3,28 @@ abstract: 'a package for down translation of XML files'
author:
- 'Jose Joao <jj@di.uminho.pt>'
build_requires:
- ExtUtils::MakeMaker: 0
+ ExtUtils::MakeMaker: '0'
configure_requires:
- ExtUtils::MakeMaker: 0
+ ExtUtils::MakeMaker: '0'
dynamic_config: 1
-generated_by: 'ExtUtils::MakeMaker version 6.64, CPAN::Meta::Converter version 2.120921'
+generated_by: 'ExtUtils::MakeMaker version 7.04, CPAN::Meta::Converter version 2.150001'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
+ version: '1.4'
name: XML-DT
no_index:
directory:
- t
- inc
requires:
- ExtUtils::MakeMaker: 6.17
- LWP::Simple: 1.35
- Scalar::Util: 0
- Test::More: 0.40
- XML::DTDParser: 2.00
- XML::LibXML: 1.54
- parent: 0
-version: 0.63
+ ExtUtils::MakeMaker: '6.17'
+ LWP::Simple: '1.35'
+ Scalar::Util: '0'
+ Test::More: '0.40'
+ XML::DTDParser: '2.00'
+ XML::LibXML: '1.54'
+ parent: '0'
+resources:
+ repository: https://natura.di.uminho.pt/svn/main/xml/XML-DT
+version: '0.67'
@@ -5,21 +5,34 @@ use ExtUtils::MakeMaker;
%req_modules = (
'ExtUtils::MakeMaker' => '6.17',
- 'Test::More' => '0.40',
- 'LWP::Simple' => '1.35',
- 'XML::DTDParser' => '2.00',
- 'XML::LibXML' => '1.54',
- 'parent' => '0',
- 'Scalar::Util' => '0',
+ 'Test::More' => '0.40',
+ 'LWP::Simple' => '1.35',
+ 'XML::DTDParser' => '2.00',
+ 'XML::LibXML' => '1.54',
+ 'parent' => '0',
+ 'Scalar::Util' => '0',
);
+%meta_merge =
+ (
+ 'meta-spec' => { version => 2 },
+ resources => {
+ repository => {
+ type => 'svn',
+ url => 'https://natura.di.uminho.pt/svn/main/xml/XML-DT',
+ web => 'https://natura.di.uminho.pt/svn/main/xml/XML-DT',
+ },
+ },
+ );
+
WriteMakefile(
- 'NAME' => 'XML::DT',
- 'VERSION_FROM' => 'lib/XML/DT.pm',
- 'EXE_FILES' => [ "mkdtskel", "mkdtdskel", "mkxmltype" ],
- 'PM_FILTER' => $PM_FILTER,
- 'PREREQ_PM' => \%req_modules,
- 'LICENSE' => 'perl',
+ 'NAME' => 'XML::DT',
+ 'VERSION_FROM' => 'lib/XML/DT.pm',
+ 'EXE_FILES' => [ "mkdtskel", "mkdtdskel", "mkxmltype" ],
+ 'PM_FILTER' => $PM_FILTER,
+ 'PREREQ_PM' => \%req_modules,
+ 'META_MERGE' => \%meta_merge,
+ 'LICENSE' => 'perl',
($] >= 5.005 ?
(ABSTRACT_FROM => 'lib/XML/DT.pm',
AUTHOR => 'Jose Joao <jj@di.uminho.pt>') : ()
@@ -23,7 +23,7 @@ our @EXPORT = qw(&dt &dtstring &dturl &inctxt &ctxt &mkdtskel &inpath
@dtatributes @dtattributes &pathdt &pathdtstring
&father &gfather &ggfather &root);
-our $VERSION = '0.63';
+our $VERSION = '0.67';
=encoding utf-8
@@ -1,6 +1,7 @@
#!/usr/bin/perl -s
use XML::DT;
use XML::DTDParser "ParseDTDFile";
+use File::Temp;
our ($dtd, $html, $lines);
@@ -15,8 +16,9 @@ if ($dtd) {
else {
if ($lines) {
## XXX - fixme, using head/xmllint is not a good idea
- system("head -$lines $filename | xmllint --recover - > /tmp/_xml_$$");
- $filename = "/tmp/_xml_$$";
+ my $tmpfile = File::Temp->new( UNLINK => 0 )->filename;
+ system("head -$lines $filename | xmllint --recover - > $tmpfile");
+ $filename = $tmpfile;
}
if ($html) {
@@ -25,7 +27,7 @@ else {
else {
mkdtskel($filename, @ARGV);
}
- unlink("/tmp/_xml_$$") if $lines;
+ unlink($filename) if $lines;
}
__END__
@@ -1,6 +1,7 @@
#!/usr/bin/perl -w -s
use XML::DT;
use Data::Dumper;
+use File::Temp;
use Term::ReadLine;
#use locale;
@@ -50,11 +51,12 @@ sub mkxmltypes {
for my $fname (@files){
if($lines){
- system("head -$lines $fname | xmllint --recover - > /tmp/_xml_$$");
- $fname = "/tmp/_xml_$$";
+ my $tmpfile = File::Temp->new( UNLINK => 0 )->filename;
+ system("head -$lines $fname | xmllint --recover - > $tmpfile");
+ $fname = $tmpfile;
}
dt($fname,%handler);
- unlink("/tmp/_xml_$$") if $lines;
+ unlink($fname) if $lines;
}
print "# ", join(" ",keys %root)," ...", scalar(localtime(time)) ,"\n";