W3C home > Mailing lists > Public > www-validator-cvs@w3.org > June 2010

validator/misc soc2xml.pl,1.2,1.3

From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
Date: Sun, 13 Jun 2010 21:52:00 +0000
To: www-validator-cvs@w3.org
Message-Id: <E1ONv61-00049u-02@lionel-hutz.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 GMT

This archive was generated by hypermail 2.2.0+W3C-0.50 : Thursday, 26 April 2012 12:55:20 GMT