Perl modules availability

tuac

Hi All,

I am trying to find the default perl modules available in 6.7.1 that are not present in 6.1 version. Can any one help me on this?

Especially are the DBD and DBI available as a part of the 6.1 install?

Thanks!
TAUC

Adam Stoller

Hi All, I am trying to find the default perl modules available in 6.7.1 that are not present in 6.1 version. Can any one help me on this? Especially are the DBD and DBI available as a part of the 6.1 install? Thanks! TAUC

Using the following code - I retrieved the list of modules in the attached, for my 671SP1 Windows system:

use strict;
use warnings;
use TeamSite:irwalk;
use TeamSite::Config;
(my $iwhome = TeamSite::Config::iwgethome()) =~ tr|\\|/|;

my $start_dir = "$iwhome/iw-perl";
my @mods;

my $obj = TeamSite:irwalk->new(
    dir_handler => sub {
        my ($self, $dir) = @_;
        return ($dir !~ /site$/i);
    },
    file_handler => sub {
        my ($self, $file) = @_;
        if ($file =~ /\.p[ml]$/i) {
            $file =~ s|^$start_dir||;
            push(@mods, $file);
        }
        return 1;
    });
$obj->dirwalk($start_dir);
print STDERR "\nFound: " . @mods . " modules\n";

open(OUT, '>', "$iwhome/tmp/mods.log") || die;
print OUT join("\n", sort(@mods)) . "\n";
close(OUT);
exit 0;

If you run the script on a 61 system - you should get a comparable listing for that system and you can compare the list.

Enjoy