<HTML><BODY style="word-wrap: break-word; -khtml-nbsp-mode: space; -khtml-line-break: after-white-space; "><BR><DIV><DIV>On May 10, 2007, at 4:12 PM, Wendel Scardua wrote:</DIV><BR class="Apple-interchange-newline"><BLOCKQUOTE type="cite"><BR><DIV><SPAN class="gmail_quote">On 5/10/07, <B class="gmail_sendername">"Iberê O. Kuntz de Souza"</B> <<A href="mailto:kuntzzz@gmail.com">kuntzzz@gmail.com</A>> wrote:</SPAN><BLOCKQUOTE class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"> > 1. Para de usar Perl 4.0, isso é velho;<BR>perl -v<BR><BR>This is perl, v5.8.8 built for i686-linux<BR>> 2. RTFM, eu uso assim faz 8 anos e não dá warnings;<BR><BR>perl -we'my $dir = "."; opendir my $DIR, $dir;' <BR>Parentheses missing around "my" list at -e line 1.</BLOCKQUOTE><DIV><BR> perl -we'my $dir = "."; opendir my $DIR, $dir or die $!;'<BR><BR>Não causou warning nenhum...<BR></DIV></DIV></BLOCKQUOTE><DIV><BR class="khtml-block-placeholder"></DIV><DIV>Interessante:</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>elvis:~ igorsutton$ perl -MO=Deparse -we '$dir = q{.}; opendir my $file, $dir'</DIV><DIV>BEGIN { $^W = 1; }</DIV><DIV>$dir = '.';</DIV><DIV>opendir my $file, $dir;</DIV><DIV>-e syntax OK</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>elvis:~ igorsutton$ perl -MO=Deparse -we '$dir = q{.}; opendir my $file, $dir;'</DIV><DIV>Parentheses missing around "my" list at -e line 1.</DIV><DIV>BEGIN { $^W = 1; }</DIV><DIV>$dir = '.';</DIV><DIV>opendir my $file, $dir;</DIV><DIV>-e syntax OK</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>Descubram o que é ;-)</DIV></DIV><BR><DIV> <SPAN class="Apple-style-span" style="border-collapse: separate; border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Lucida Grande; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-align: auto; -khtml-text-decorations-in-effect: none; text-indent: 0px; -apple-text-size-adjust: auto; text-transform: none; orphans: 2; white-space: normal; widows: 2; word-spacing: 0px; "><DIV>--</DIV><DIV>Igor Sutton</DIV><DIV><A href="mailto:igor.sutton@gmail.com">igor.sutton@gmail.com</A></DIV><DIV><BR class="khtml-block-placeholder"></DIV><BR class="Apple-interchange-newline"></SPAN> </DIV><BR></BODY></HTML>