use Perl

• oh, my (Score:0)

  by slanning (5049)

  And the tests pass. But if I put my @a it fails. (If I put our @a, it passes.)

  No test of the numbers returned? :)
  • Re: (Score:2)

    by bart (450)

    But if I put my @a it fails. (If I put our @a, it passes.)

    So, what is this, actually? Something like a glob reference? Or worse: a symbolic reference?

    It reminds me of the syntax for filehandles.
    • Re:oh, my (Score:2)

      by nicholas (3034) <nwc10+useperl@colon.colondot.net> on 2009.10.12 3:42 (#70850) Homepage Journal

      No, neither glob reference nor symbolic reference. A "regular" package variable. Run Deparse over it to see what the optree is:

      $ ./perl -Ilib -MO=Deparse  t/op/unshift.t
      print "1..2\n";
      @a = (1, 2, 3);
      $cnt1 = unshift(@a, 0);
      if (join(' ', @a) eq '0 1 2 3') {
          print "ok 1\n";
      }
      else {
          print "not ok 1\n";
      }
      $cnt2 = unshift(@a, 3, 2, 1);
      if (join(' ', @a) eq '3 2 1 0 1 2 3') {
          print "ok 2\n";
      }
      else {
          print "not ok 2\n";
      }
      t/op/unshift.t syntax OK

      There's similar obsolete syntax for hashes passed to hash operators without the %

      Reply to This

      Parent