You are viewing a plain text version of this content. The canonical link for it is here.
Posted to dev@tomcat.apache.org by rj...@apache.org on 2018/09/20 09:32:12 UTC
svn commit: r1841450 - /tomcat/jk/trunk/tools/lineends.pl
Author: rjung
Date: Thu Sep 20 09:32:12 2018
New Revision: 1841450
URL: http://svn.apache.org/viewvc?rev=1841450&view=rev
Log:
Use normal perl array derefence syntax.
Modified:
tomcat/jk/trunk/tools/lineends.pl
Modified: tomcat/jk/trunk/tools/lineends.pl
URL: http://svn.apache.org/viewvc/tomcat/jk/trunk/tools/lineends.pl?rev=1841450&r1=1841449&r2=1841450&view=diff
==============================================================================
--- tomcat/jk/trunk/tools/lineends.pl (original)
+++ tomcat/jk/trunk/tools/lineends.pl Thu Sep 20 09:32:12 2018
@@ -61,24 +61,24 @@ $givenpaths = 0;
$notnative = 0;
-while (defined @ARGV[0]) {
- if (@ARGV[0] eq '--touch') {
+while (defined $ARGV[0]) {
+ if ($ARGV[0] eq '--touch') {
$preservedate = 0;
}
- elsif (@ARGV[0] eq '--nocr') {
+ elsif ($ARGV[0] eq '--nocr') {
$notnative = -1;
}
- elsif (@ARGV[0] eq '--cr') {
+ elsif ($ARGV[0] eq '--cr') {
$notnative = 1;
}
- elsif (@ARGV[0] eq '--force') {
+ elsif ($ARGV[0] eq '--force') {
$forceending = 1;
}
- elsif (@ARGV[0] eq '--FORCE') {
+ elsif ($ARGV[0] eq '--FORCE') {
$forceending = 2;
}
- elsif (@ARGV[0] =~ m/^-/) {
- die "What is " . @ARGV[0] . " supposed to mean?\n\n"
+ elsif ($ARGV[0] =~ m/^-/) {
+ die "What is " . $ARGV[0] . " supposed to mean?\n\n"
. "Syntax:\t$0 [option()s] [path(s)]\n\n" . <<'OUTCH'
Where: paths specifies the top level directory to convert (default of '.')
options are;
@@ -92,8 +92,8 @@ Where: paths specifies the top level dir
OUTCH
}
else {
- find(\&totxt, @ARGV[0]);
- print "scanned " . @ARGV[0] . "\n";
+ find(\&totxt, $ARGV[0]);
+ print "scanned " . $ARGV[0] . "\n";
$givenpaths = 1;
}
shift @ARGV;
---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@tomcat.apache.org
For additional commands, e-mail: dev-help@tomcat.apache.org