Skip to content
This repository
Fetching contributors…

Cannot retrieve contributors at this time

file 42 lines (32 sloc) 0.854 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42
#!/usr/bin/perl

# Copyright 2002-2011, Paul Johnson (pjcj@cpan.org)

# This software is free. It is licensed under the same terms as Perl itself.

# The latest version of this software should be available from my homepage:
# http://www.pjcj.net

use strict;
use warnings;

sub cond_dor
{
    my ($x) = @_;

    $x->[18] //= undef;
    $x->[18] //= 0;
    $x->[18] //= 0;
    $x->[18] //= 1;
    $x->[18] //= 1;

    $x->[19] //= 1;
    $x->[19] //= 1;
    $x->[19] //= 0;
    $x->[19] //= undef;
    $x->[19] //= 1;

    $x->[20] = $x->[21] // undef;
    $x->[20] = $x->[21] // 0;
    $x->[20] = $x->[21] // 0;
    $x->[20] = $x->[21] // 1;
    $x->[20] = $x->[21] // 1;

    $x->[22] = $x->[22] // undef;
    $x->[22] = $x->[22] // 0;
    $x->[22] = $x->[22] // 0;
    $x->[22] = $x->[22] // 1;
    $x->[22] = $x->[22] // 1;
}

1;
Something went wrong with that request. Please try again.