1. Perl / Говнокод #13510

    −149

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    sub is_demo_license
{
        my $self = shift;

        my $rv = 0;

        if( ( $self -> dealer() -> id() == 116 )
            and
            ( $self -> comments() =~ /^DEMO\s+STID/ ) )
        {
                $rv = 1;
        }

        return $rv;
}

    Запостил: kainwinterheart, 30 Июля 2013

    Комментарии (3) RSS

    • ava guest 03.08.2013 12:10 # 0 

      sub is_demo_license
{
        return ( ( $_[0]   -> dealer() -> id() == 116 )  and
                      ( $$_[0] -> comments()     =~ /^DEMO\s+STID/ ) )
}
      Ответить

      • ava guest 03.08.2013 12:12 # 0

        блджад, очпечатко, не $$_[0] a $_[0]
        Ответить

        • ava barop 17.01.2017 01:16 # 0

          Не пошел-ка бы ты нахуй, деревенский оболдуй!
          Ты, должно быть, из селухи
          Под названьем "Бычий Хуй"!
          Ответить

    Добавить комментарий