contrib/{extractDS,migrate-3-4}.px: Don't use XML::Simple and don't check for the...

diff --git a/contrib/extractDS.px b/contrib/extractDS.px
index 3bf4b9e01c402758976095c7b470ecbb58e3c493..bdc4b3d2b0641e303704ec9dc1f96abb3cf95e2a 100755 (executable)
--- a/contrib/extractDS.px
+++ b/contrib/extractDS.px
@@ -19,7 +19,6 @@ the L<XML::Simple> module.
 =cut
 
 use Getopt::Long ('GetOptions');
-use XML::Simple (qw(xml_in xml_out));
 use Data::Dumper ();
 
 our $InFile;

diff --git a/contrib/migrate-3-4.px b/contrib/migrate-3-4.px
index 24a3c4ed6fc7672d865b23c3c4a6562a1b6ff637..613561b95fa18a828142374ff7d553a8e9619ff2 100755 (executable)
--- a/contrib/migrate-3-4.px
+++ b/contrib/migrate-3-4.px
@@ -128,11 +128,6 @@ GetOptions ("indir|i=s" => \$InDir,
        "hostname=s" => \$Hostname) or exit (1);
 
 die "No such directory: $InDir" if (!-d $InDir);
-if (!-e $OutDir)
-{
-       mkdir ($OutDir) or die ("mkdir ($OutDir): $!");
-}
-die "Not a directory: $OutDir" if (!-d $OutDir);
 
 our @Files = ();
 our %OutDirs = ();