Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

Code Block
bgColor#ffcccc
langperl

my $num = 02;
# ...
if ($num eq "02") {print "true\n"} else {print "false\n"};

...

Code Block
bgColor#ccccff
langperl

my $num = 02;
# ...
if ($num == "02") {print "true\n"} else {print "false\n"};

...

Code Block
bgColor#ffcccc
langperl

sub check_password {
  my $correct = shift;
  my $password = shift;
  # encrypt password
  if ($password == $correct) {
    return true;
  } else {
    return false;
  }
}

...

Code Block
bgColor#ccccff
langperl

sub check_password {
  my $correct = shift;
  my $password = shift;
  # encrypt password
  if ($password eq $correct) {
    return true;
  } else {
    return false;
  }
}

...

[CPAN] Elliot Shank, Perl-Critic-1.116
ProhibitMismatchedOperators
[Wall 2011] perlop manpage

...

Image Modified  Image Modified