develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35551 - trunk/tools/dev

From:
bernhard
Date:
January 14, 2009 13:05
Subject:
[svn:parrot] r35551 - trunk/tools/dev
Message ID:
20090114210511.9232ACB9AE@x12.develooper.com
Author: bernhard
Date: Wed Jan 14 13:05:10 2009
New Revision: 35551

Modified:
   trunk/tools/dev/pmcrenumber.pl

Log:
[codingstd] make Perl::Critic happy

Modified: trunk/tools/dev/pmcrenumber.pl
==============================================================================
--- trunk/tools/dev/pmcrenumber.pl	(original)
+++ trunk/tools/dev/pmcrenumber.pl	Wed Jan 14 13:05:10 2009
@@ -1,5 +1,5 @@
 #! perl
-# Copyright (C) 2001-2009, The Perl Foundation.
+# Copyright (C) 2009, The Perl Foundation.
 # $Id$
 
 use strict;
@@ -10,9 +10,9 @@
 my $pmc_order = 0;
 my $pmc_num_contents;
 
-open (PMC_NUM, "<$pmc_num_file");
+open my $pmc_num_fh, '<', $pmc_num_file;
 
-for (<PMC_NUM>) {
+for (<$pmc_num_fh>) {
     if (/^([\w]+)\.pmc\s+\d+$/) {
         $pmc_num_contents .= "$1.pmc    $pmc_order\n";
         $pmc_order++;
@@ -22,10 +22,10 @@
     }
 }
 
-close PMC_NUM;
-open (PMC_NUM, ">$pmc_num_file");
-print PMC_NUM $pmc_num_contents;
-close PMC_NUM;
+close $pmc_num_fh;
+open  $pmc_num_fh, '>', $pmc_num_file;
+print $pmc_num_fh $pmc_num_contents;
+close $pmc_num_fh;
 
 
 ################### DOCUMENTATION ####################



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About