android init vs perl

gistfile1.txt

 (
  )   this gist is posted without any special reason.
c[ ]                      ^^^^^^^ ^^^ ^^^^^^^ ^^^^^^

------------------------------------------------------------------------

struct action *action_remove_queue_head(void)
{
    if (list_empty(&action_queue)) {
        return 0;
    } else {
        struct listnode *node = list_head(&action_queue);
        struct action *act = node_to_item(node, struct action, qlist);
        list_remove(node);
        return act;
    }
}

struct *action act = action_remove_queue_head();

------------------------------------------------------------------------

my $act = unshift(@action_queue);