[svn:parrot] r38156 - trunk/tools/dev
fperrad at svn.parrot.org
fperrad at svn.parrot.org
Thu Apr 16 12:14:04 UTC 2009
Author: fperrad
Date: Thu Apr 16 12:14:03 2009
New Revision: 38156
URL: https://trac.parrot.org/parrot/changeset/38156
Log:
[codingstd] remove cuddled else
Modified:
trunk/tools/dev/create_language.pl
Modified: trunk/tools/dev/create_language.pl
==============================================================================
--- trunk/tools/dev/create_language.pl Thu Apr 16 12:12:39 2009 (r38155)
+++ trunk/tools/dev/create_language.pl Thu Apr 16 12:14:03 2009 (r38156)
@@ -553,7 +553,7 @@
}
%config;
}
-
+
__ at lclang@.pir__
=head1 TITLE
@@ -862,7 +862,8 @@
$fn =~ s{/}{$slash}g;
if ( -r $fn ) {
push @files, $fn;
- } else {
+ }
+ else {
warn "Missing test file: $fn\n";
}
}
@@ -903,11 +904,13 @@
my $currfile = File::Spec->catfile( $start, $file );
if ( -d $currfile ) {
push( @hits, all_in( $currfile ) );
- } else {
+ }
+ else {
push( @hits, $currfile ) if $currfile =~ /\.t$/;
}
}
- } else {
+ }
+ else {
warn "$start: $!\n";
}
More information about the parrot-commits
mailing list