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 3bf4b9e..bdc4b3d 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 24a3c4e..613561b 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 = ();