<commit_before># Copyright: 2001-2003 The Perl Foundation.  All Rights Reserved.
# $Id: revision.pl 7804 2005-04-11 14:12:16Z jrieks $

=head1 NAME

config/gen/revision.pl - Parrot's configure revision

=head1 DESCRIPTION

Determines parrot's revision.

=cut

package Configure::Step;

use strict;
use vars qw($description);
use Parrot::Revision;

$description="Determining Parrot's revision";

sub runstep {
    my $revision = $Parrot::Revision::current;
    my $entries  = $Parrot::Revision::svn_entries;

    Configure::Data->set(
	revision => $revision,
	SVN_ENTRIES => $entries
    );
    
    if ($revision >= 1) {
	$Configure::Step::result = "r$revision";
    } else {
	$Configure::Step::result = "failed";
    }
}
<commit_msg>[perl #35361] [PATCH] Skip svn revision number if none exists<commit_after># Copyright: 2001-2003 The Perl Foundation.  All Rights Reserved.
# $Id: revision.pl 7804 2005-04-11 14:12:16Z jrieks $

=head1 NAME

config/gen/revision.pl - Parrot's configure revision

=head1 DESCRIPTION

Determines parrot's SVN revision.  In a release, there
are no .svn directories, so this field is empty.

=cut

package Configure::Step;

use strict;
use vars qw($description);
use Parrot::Revision;

$description="Determining Parrot's revision";

sub runstep {
    my $revision = $Parrot::Revision::current;
    my $entries  = $Parrot::Revision::svn_entries;

    Configure::Data->set(
	revision => $revision,
	SVN_ENTRIES => $entries
    );
    
    if ($revision >= 1) {
	$Configure::Step::result = "r$revision";
    } else {
	$Configure::Step::result = "done";
    }
}

{'fraction_non_alphanumeric': 0.13664987405541562, 'fraction_numerical': 0.039672544080604534, 'mean_word_length': 4.244224422442244, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 11, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '1964690', 'n_tokens_mistral': 619, 'n_tokens_neox': 544, 'n_words': 143}