The mailing list for listmasters using Sympa

[Glen Eustace <address@concealed>]

On 10/01/2017, at 8:24 PM, Stefan Hornburg (Racke) <address@concealed> wrote:

that looks weird - what is the code at that line in Database.pm?

sub do_query {

    my $self   = shift;

    my $query  = shift;

    my @params = @_;

    my $sth;

    $query =~ s/^\s+//;

    $query =~ s/\s+$//;

    my $statement = sprintf $query, @params;

    my $s = $statement;

    $s =~ s/\n\s*/ /g;

    $log->syslog('debug3', 'Will perform query "%s"', $s);

My Googling would suggest that the sprint is doing something with an aliased variable but I am no perl expert and it looks fine to me.

NB: This is unadulterated sympa and perl 5.24

--
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Glen Eustace,
GodZone Internet Services, a division of AGRE Enterprises Ltd.,
P.O. Box 8020, Palmerston North, New Zealand 4446
Ph +64 6 357 8168, Mob +64 27 542 4015

“Specialising in providing low-cost professional Internet Services since 1997"