[Mimedefang] Disclaimer problems MD 2.5.1

Sean Ware sware at midwaygames.com
Wed Apr 6 10:27:18 EDT 2005


Jonathan Maliepaard (jon at enetworks.co.za) @ 2005.04.06 12:16:37 +0200:

> Also is there away that I can see the version of CPAN perl modules
> installed. Ie How can I wourk out what version of MIME::Base64 I have
> installed if I used CPAN to do the install?

I use the following little Perl script for that very task. It
generates a large list of all your modules and their reported version
number, regardless of how they are installed:


-------Begin Included Script--------

#!/usr/bin/perl
use File::Find;
use ExtUtils::MakeMaker;

find(
 sub {
    next unless /.pm$/i;
    my $mod = $File::Find::name;
    $mod =~ s/^$File::Find::topdir\/?//;
    $mod =~ s/\.pm$//i;
    $mod=~s!/!::!g;
    my $ver=MM->parse_version($File::Find::name);
    print "$mod ($ver)\n"
  },
  @INC
)

-------End Included Script--------


....Sean

-- 
Sean Ware                          Midway Amusement Games, LLC
Senior Network Engineer                  2727 W. Roscoe Street
Information Technology Department       Chicago, IL 60618-5909
sware at midwaygames.com                           (773) 961-2000




More information about the MIMEDefang mailing list