view release on metacpan or  search on metacpan

src/subversion/tools/dist/backport.pl  view on Meta::CPAN

  # ### TODO: both here and in merge(), unlink files that previous merges added
  die "Local mods to STATUS file $STATUS" if `$SVN status -q $STATUS`;

  # Skip most of the file
  while (<STATUS>) {
    last if /^Approved changes/;
  }
  while (<STATUS>) {
    last unless /^=+$/;
  }
  $/ = ""; # paragraph mode

  while (<STATUS>) {
    my @lines = split /\n/;

    given ($lines[0]) {
      # Section header
      when (/^[A-Z].*:$/i) {
        print "\n\n=== $lines[0]" unless $YES;
      }
      # Separator after section header