| Subject: | Using w/ -w gets pack "format wrapped" error |
use Crypt::TripleDES;
my $sa = "john";
my $passphrase = "Thepassphrase";
my $des = new Crypt::TripleDES;
my $sa_encrypt = $des->encrypt3($sa, $passphrase);
used w/ perl -w, you get 13 lines of:
Character in "C" format wrapped at /usr/local/lib/perl5/site_perl/5.8.0/Crypt/PPDES.pm line 536
line 536:
pack("C8",$l&0xff,$l>>8,$l>>16,$l>>24,
$r&0xff,$r>>8,$r>>16,$r>>24);
}
Cheap fix:
{
$^W = 0;
pack("C8",$l&0xff,$l>>8,$l>>16,$l>>24,
$r&0xff,$r>>8,$r>>16,$r>>24);
}
} # no format wrapped warnings