diff options
| -rwxr-xr-x | misc/soc2xml.pl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/misc/soc2xml.pl b/misc/soc2xml.pl index 89c3c07..4c281b9 100755 --- a/misc/soc2xml.pl +++ b/misc/soc2xml.pl @@ -1,6 +1,7 @@ -#!/usr/bin/perl -w +#!/usr/bin/perl use strict; +use warnings; # Crude script for converting SGML Open Catalogs to XML catalogs. # Usage: soc2xml.pl < catalog.soc > catalog.xml @@ -15,8 +16,8 @@ sub esc $esc; } -$/ = undef; -my $soc = <STDIN>; +local $/ = undef; +my $soc = <>; print <<'EOF'; <?xml version="1.0"?> |