Author: danielsh Date: Thu Feb 2 14:19:39 2012 New Revision: 1239639 URL: http://svn.apache.org/viewvc?rev=1239639&view=rev Log: * tools/dist/backport.pl (feature): Use 'switch' and 'say'. This requires Perl 5.10. (main): Rewrite using switch(). Don't print in batch mode.
Modified: subversion/trunk/tools/dist/backport.pl Modified: subversion/trunk/tools/dist/backport.pl URL: http://svn.apache.org/viewvc/subversion/trunk/tools/dist/backport.pl?rev=1239639&r1=1239638&r2=1239639&view=diff ============================================================================== --- subversion/trunk/tools/dist/backport.pl (original) +++ subversion/trunk/tools/dist/backport.pl Thu Feb 2 14:19:39 2012 @@ -1,6 +1,7 @@ #!/usr/bin/perl -l use warnings; use strict; +use feature qw/switch say/; # Licensed to the Apache Software Foundation (ASF) under one # or more contributor license agreements. See the NOTICE file @@ -217,14 +218,22 @@ sub main { while (<>) { my @lines = split /\n/; - # Section header? + # Skip most of the file next unless $sawapproved ||= /^Approved changes/; - print "\n\n=== $lines[0]" and next if $lines[0] =~ /^[A-Z].*:$/i; - # Backport entry? - handle_entry @lines and next if $lines[0] =~ /^ \*/ and $sawapproved; - - warn "Unknown entry '$lines[0]' at $ARGV:$.\n"; + given ($lines[0]) { + # Section header + when (/^[A-Z].*:$/i) { + print "\n\n=== $lines[0]" unless $ENV{YES}; + } + # Backport entry? + when (/^ \*/) { + handle_entry @lines if $sawapproved; + } + default { + warn "Unknown entry '$lines[0]' at $ARGV:$.\n"; + } + } } }