#! /usr/bin/env perl use strict; use warnings; use Encode qw( from_to ); use SVN::Ra; sub is_ascii { my @chars = split(//, shift); for my $c (@chars) { if (ord($c) >= 128) { return 0; } } 1; } my $ra = SVN::Ra->new("svn://svn.sv.gnu.org/nano"); $ra->get_log('', 1, $ra->get_latest_revnum, 0, 1, 0, sub { my ($paths, $rev_num, $user, $datetime, $log_msg) = @_; if (not is_ascii($log_msg)) { print "------------------------------------------------------------------------\n"; print "r", $rev_num, "\n"; print $log_msg, "\n"; } }); print "------------------------------------------------------------------------\n";