[Rt-commit] rt branch, 3.8/perlcritic, updated. rt-3.8.10-215-g0f76b06

[Alex Vandiver]

The branch, 3.8/perlcritic has been updated
       via  0f76b06e135e8a634e50854ede7ea6ff8f6451cb (commit)
      from  7aa42173314792376fb461c4ea54f60c967cb224 (commit)

Summary of changes:
 sbin/rt-message-catalog |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)

- Log -----------------------------------------------------------------
commit 0f76b06e135e8a634e50854ede7ea6ff8f6451cb
Author: Alex Vandiver <alexmv at bestpractical.com>
Date:   Mon Aug 29 19:31:28 2011 -0400

    Use explicit glob() function, instead of <*>

diff --git a/sbin/rt-message-catalog b/sbin/rt-message-catalog
index 92c2d7a..3977303 100755
--- a/sbin/rt-message-catalog
+++ b/sbin/rt-message-catalog
@@ -87,7 +87,7 @@ sub stats {
     use constant TRANSLATED => 0;
     use constant DISTINCT => 1;
 
-    foreach my $po_file (<$dir/*.po>) {
+    foreach my $po_file (glob("$dir/*.po")) {
         my $array = Locale::PO->load_file_asarray( $po_file );
 
         $res{$po_file} = [0, 0];
@@ -130,7 +130,7 @@ sub shrink {
 
     my %stats = ();
 
-    foreach my $po_file (<$dir/*.po>) {
+    foreach my $po_file (glob("$dir/*.po")) {
         my $array = Locale::PO->load_file_asarray( $po_file );
         $stats{ $po_file } = { };
         foreach my $entry ( splice @$array, 1 ) {
@@ -207,7 +207,7 @@ sub rosetta {
         die "Is not URL or directory: '$url'";
     }
 
-    my @files = <$dir/rt/*.po>, <$dir/*.po>;
+    my @files = glob("$dir/rt/*.po $dir/*.po");
     unless ( @files ) {
         print STDERR "No files in $dir/rt/*.po and $dir/*.po\n";
         exit;

-----------------------------------------------------------------------