From 59eca9c7e72bf1d59adb9b5ef0b224ce3257466a Mon Sep 17 00:00:00 2001
From: Rob Austein <sra@hactrn.net>
Date: Tue, 17 Jul 2007 17:12:50 +0000
Subject: Checkpoint

svn path=/docs/left-right-xml; revision=765
---
 scripts/xml-simple-dump.pl | 25 -------------------------
 1 file changed, 25 deletions(-)
 delete mode 100755 scripts/xml-simple-dump.pl

(limited to 'scripts/xml-simple-dump.pl')

diff --git a/scripts/xml-simple-dump.pl b/scripts/xml-simple-dump.pl
deleted file mode 100755
index 909517c9..00000000
--- a/scripts/xml-simple-dump.pl
+++ /dev/null
@@ -1,25 +0,0 @@
-# $Id$
-#
-# XML::Simple is relatively easy to use (have you looked at the
-# alternatives?)  but sometimes even XML::Simple's internal
-# representation is not immediately obvious.  On days when it'd be
-# easier to write the XML by hand and let a machine tell you how
-# XML::Simple would represent it, run this script.
-
-eval 'exec perl -w -S $0 ${1+"$@"}'
-    if 0;
-
-use strict;
-use XML::Simple;
-use Data::Dumper;
-
-my $xs = XML::Simple->new(KeepRoot => 1,
-			  ForceArray => [qw(list_class)],
-			  KeyAttr => [qw(header)],
- 			  NormalizeSpace => 2);
-
-my @xml = <>;
-shift(@xml) while (@xml && $xml[0] =~ /^\s*$/);
-$xml[0] =~ s/^\s+// if (@xml);
-
-print(Dumper($xs->XMLin(join('', @xml))));
-- 
cgit v1.2.3