<commit_before>#!/usr/local/bin/perl
# Command-line script to enable status collection

use strict;
use warnings;
our (%config);
require 'system-status-lib.pl';
my $zero = @ARGV ? $ARGV[0] : '';
$zero eq 'none' || $zero =~ /^[1-9][0-9]*$/ && $zero <= 60 ||
	die "usage: enable-collection.pl none|<mins>";

$config{'collect_interval'} = $ARGV[0];
&save_module_config();
&setup_collectinfo_job();
<commit_msg>Fix @INC for new perl versions<commit_after>#!/usr/local/bin/perl
# Command-line script to enable status collection

BEGIN { push(@INC, '.'); };
use strict;
use warnings;
our (%config);
require 'system-status-lib.pl';
my $zero = @ARGV ? $ARGV[0] : '';
$zero eq 'none' || $zero =~ /^[1-9][0-9]*$/ && $zero <= 60 ||
	die "usage: enable-collection.pl none|<mins>";

$config{'collect_interval'} = $ARGV[0];
&save_module_config();
&setup_collectinfo_job();

{'fraction_non_alphanumeric': 0.21653084982537835, 'fraction_numerical': 0.018626309662398137, 'mean_word_length': 5.323529411764706, 'pattern_counts': {'":': 0, '<': 7, '<?xml version=': 0, '>': 5, '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': '801728', 'n_tokens_mistral': 331, 'n_tokens_neox': 314, 'n_words': 75}