"There is a variable $File::Find::fullname which holds the absolute pathname of the file with all symbolic links resolved. If the link is a dangling symbolic link, then fullname will be set to undef."<br><code><br>
autoflush_epic (undef)<br>dumpvar_epic (undef)<br></code><br><br>Tenta usar $File::Find::fullname.<br><br>[]'s<br><br><div class="gmail_quote">2008/10/22 Elvio Barbalho <span dir="ltr"><<a href="mailto:elvio.barbalho@gmail.com">elvio.barbalho@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">Senhores bom dia estou rodando o seguinte script <br><br>#!/usr/bin/perl<br> <br>use File::Find;<br>
use ExtUtils::MakeMaker;<br> <br>find(<br> sub {<br> next unless /.pm$/i;<br> my $mod = $File::Find::name;<br>
$mod =~ s/^$File::Find::topdir\/?//;<br> $mod =~ s/\.pm$//i;<br> $mod=~s!/!::!g;<br> my $ver=MM->parse_version($File::Find::name);<br> print "$mod ($ver)\n"<br>
},<br> @INC<br>)<br><br><br>e esta ocorrendo o seguinte erro.<br><br>autoflush_epic (undef)<br>dumpvar_epic (undef)<br>Insecure dependency in chdir while running with -T switch at /usr/share/perl/5.10/File/Find.pm line 768.<br>
<br><br>Poderiam me ajudar a resolver?????<br>
<br>_______________________________________________<br>
Cascavel-pm mailing list<br>
<a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br>print "\x54\x68\x65\x20\x53\x69\x6c\x65\x6e\x74\x20\x47\x75\x61\x72\x64\x69\x61\x6e",$/<br>