- From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
- Date: Sun, 13 Jun 2010 21:52:00 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/validator/misc
In directory hutz:/tmp/cvs-serv15971/misc
Modified Files:
soc2xml.pl
Log Message:
Fix perlcritic warnings.
Index: soc2xml.pl
===================================================================
RCS file: /sources/public/validator/misc/soc2xml.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- soc2xml.pl 10 Jun 2010 21:57:43 -0000 1.2
+++ soc2xml.pl 13 Jun 2010 21:51:58 -0000 1.3
@@ -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 @@
$esc;
}
-$/ = undef;
-my $soc = <STDIN>;
+local $/ = undef;
+my $soc = <>;
print <<'EOF';
<?xml version="1.0"?>
Received on Sunday, 13 June 2010 21:52:02 UTC