From 5cfc908c892b9703b3c34db20a861f5c7b64a7d7 Mon Sep 17 00:00:00 2001
From: Florian Forster <octo@huhu.verplant.org>
Date: Fri, 18 May 2007 19:34:43 +0200
Subject: [PATCH] contrib/{extractDS,migrate-3-4}.px: Don't use XML::Simple and
 don't check for the output directory.

---
 contrib/extractDS.px   | 1 -
 contrib/migrate-3-4.px | 5 -----
 2 files changed, 6 deletions(-)

diff --git a/contrib/extractDS.px b/contrib/extractDS.px
index 3bf4b9e0..bdc4b3d2 100755
--- 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 24a3c4ed..613561b9 100755
--- 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 = ();
-- 
2.30.2