diff options
| author | ville <ville@localhost> | 2010-06-13 21:51:58 +0000 |
|---|---|---|
| committer | ville <ville@localhost> | 2010-06-13 21:51:58 +0000 |
| commit | 1642333b255d573e58534d442ba386eabfece4b0 (patch) | |
| tree | 9f857e7d36ccc3eff73bb8340785b1e4bf550888 | |
| parent | 2f846f7ae67520e15832341d7c395c29ece4905a (diff) | |
| download | markup-validator-1642333b255d573e58534d442ba386eabfece4b0.zip markup-validator-1642333b255d573e58534d442ba386eabfece4b0.tar.gz markup-validator-1642333b255d573e58534d442ba386eabfece4b0.tar.bz2 | |
Fix perlcritic warnings.
| -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"?> |