perl.cvs.parrot
[Top] [All Lists]

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

Subject: [svn:parrot] r35551 - trunk/tools/dev
From:
Date: Wed, 14 Jan 2009 13:05:11 -0800 PST
Newsgroups: perl.cvs.parrot

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 ####################

<Prev in Thread] Current Thread [Next in Thread>
  • [svn:parrot] r35551 - trunk/tools/dev, bernhard <=