kallithea Files · rhodecode/public/js/mode/perl/index.html

Files @ 360f31856657

Branch filter:

Location: kallithea/rhodecode/public/js/mode/perl/index.html

360f31856657 1.2 KiB text/html Show Annotation Show as Raw Download as Raw

Marcin Kuzminski

backport fix

fixed password refill in login form when wrong password was given

It's better to not refill the passwords on wrong credentials given.
Standard behaviour on all pages are making the password blank

<!doctype html>
<html>
  <head>
    <meta charset="utf-8">
    <title>CodeMirror: Perl mode</title>
    <link rel="stylesheet" href="../../lib/codemirror.css">
    <script src="../../lib/codemirror.js"></script>
    <script src="perl.js"></script>
    <link rel="stylesheet" href="../../doc/docs.css">
    <style type="text/css">.CodeMirror {border-top: 1px solid black; border-bottom: 1px solid black;}</style>
  </head>
  <body>
    <h1>CodeMirror: Perl mode</h1>

<div><textarea id="code" name="code">
#!/usr/bin/perl

use Something qw(func1 func2);

# strings
my $s1 = qq'single line';
our $s2 = q(multi-
              line);

=item Something
    Example.
=cut

my $html=<<'HTML'
<html>
<title>hi!</title>
</html>
HTML

print "first,".join(',', 'second', qq~third~);

if($s1 =~ m[(?<!\s)(l.ne)\z]o) {
    $h->{$1}=$$.' predefined variables';
    $s2 =~ s/\-line//ox;
    $s1 =~ s[
          line ]
        [
          block
        ]ox;
}

1; # numbers and comments

__END__
something...

</textarea></div>

    <script>
      var editor = CodeMirror.fromTextArea(document.getElementById("code"), {
        lineNumbers: true
      });
    </script>

    <p><strong>MIME types defined:</strong> <code>text/x-perl</code>.</p>
  </body>
</html>