statico / cadubi Goto Github PK

% cadubi
Can't use an array as a reference at /opt/bin/cadubi line 341.

    # Clort change color
    if ($key eq 'w') {
        &writecol;
        return 1;
    }

...
sub writecol { # Clort changes color to current color, we hope
    $charmap->[$pos[0]][$pos[1]] = [@charmode];
    # dont actually printit print &printchar(@charmode);

$ cadubi -h
Using an array as a reference is deprecated at /usr/local/bin/cadubi line 347.
Using an array as a reference is deprecated at /usr/local/bin/cadubi line 353.
Using an array as a reference is deprecated at /usr/local/bin/cadubi line 354.
Using an array as a reference is deprecated at /usr/local/bin/cadubi line 855.
defined(@array) is deprecated at /usr/local/bin/cadubi line 895.
    (Maybe you should just omit the defined()?)

usage: /usr/local/bin/cadubi [OPTIONS] [FILE]

Available options:
  -h, --help              what you're looking at now
  -m, --mute              turn off beeping
  -s, --size [W] [H]      sets the size of the console for use with
                          cadubi, where W is number of columns and H
                          is number of rows.
  -v, --version           show cadubi version

$ cadubi -h
Unquoted string "raw" may clash with future reserved word at /usr/local/bin/cadubi line 50.
Unquoted string "restore" may clash with future reserved word at /usr/local/bin/cadubi line 68.
Using an array as a reference is deprecated at /usr/local/bin/cadubi line 341.
Using an array as a reference is deprecated at /usr/local/bin/cadubi line 347.
Using an array as a reference is deprecated at /usr/local/bin/cadubi line 348.
Bareword found in conditional at /usr/local/bin/cadubi line 441.
Bareword found in conditional at /usr/local/bin/cadubi line 738.
Using an array as a reference is deprecated at /usr/local/bin/cadubi line 842.
Useless use of a constant ("IN") in void context at /usr/local/bin/cadubi line 735.
defined(@array) is deprecated at /usr/local/bin/cadubi line 882.
    (Maybe you should just omit the defined()?)
Name "main::bug" used only once: possible typo at /usr/local/bin/cadubi line 818.
Name "main::controlkeys" used only once: possible typo at /usr/local/bin/cadubi line 448.
Name "main::oldmap" used only once: possible typo at /usr/local/bin/cadubi line 699.
Use of uninitialized value $option in concatenation (.) or string at /usr/local/bin/cadubi line 382.

usage: /usr/local/bin/cadubi [OPTIONS] [FILE]

Available options:
  -h, --help              what you're looking at now
  -m, --mute              turn off beeping
  -s, --size [W] [H]      sets the size of the console for use with
                          cadubi, where W is number of columns and H
                          is number of rows.
  -v, --version           show cadubi version

$ perl --version

This is perl 5, version 18, subversion 2 (v5.18.2) built for darwin-thread-multi-2level
(with 2 registered patches, see perl -V for more detail)
…snip…