The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/perl
#
# $Id: loglocalizedownlog.pl,v 1.1 2005/09/20 18:31:36 erwan Exp $
#
# Log::Localized logs itself...
# This program displays on stdout the messages logged
# by Log::Localized upon compilation and when 'llog'
# is called.
# it won't work the first time, since 'use' is executed
# before verbosity.conf is created, hence turning off logging
# upon first run. rerun to see result.
#
# erwan lemonnier - 200509
#

use strict;
use warnings;
use lib "../lib/";
use Log::Localized;
   
`echo "Log::Localized:: = 5" >> verbosity.conf`;

llog(1,"calling llog from $0");