#!/usr/bin/perl

foreach my $dir (@INC) {
        if (-e "$dir/Net/FTPSSL.pm") {
		my(@FM);
		open(FTPMOD,"+<","$dir/Net/FTPSSL.pm");
		while(<FTPMOD>) {
			if (index($_,'m/(\d+)\s(.*)\(((\d+,?)+)\)\./') >= 0) {
				push(@FM,'$msg =~ m/(\d+)\s+(.*)\s+\D+([\d\,]+)/;' . "\n");
				print "Applied Patch!\n";
				$patched = 1;
			} else {
				push(@FM,$_);
			}
		}
		if ($patched) {
			seek(FTPMOD,0,0);
			print FTPMOD join("",@FM);
			truncate(FTPMOD,tell(FTPMOD));
		}
		close(FTPMOD);
        }
}