t/lib/croak/pp_hot

   1 __END__
   2 # NAME local %$ref on last line of lvalue sub in lv cx
   3    sub foo :lvalue { local %{\%foo} }
   4    (foo) = 3;
   5 EXPECT
   6 Can't localize through a reference at - line 1.
   7 ########
   8 # NAME local @$ref on last line of lvalue sub in lv cx
   9    sub foo :lvalue { local @{\@foo} }
  10    (foo) = 3;
  11 EXPECT
  12 Can't localize through a reference at - line 1.
  13 ########
  14 # NAME local %$ref on last line of lvalue sub in non-lv cx
  15    sub foo :lvalue { local %{\%foo} }
  16    foo;
  17 EXPECT
  18 Can't localize through a reference at - line 1.
  19 ########
  20 # NAME local @$ref on last line of lvalue sub in non-lv cx
  21    sub foo :lvalue { local @{\@foo} }
  22    foo;
  23 EXPECT
  24 Can't localize through a reference at - line 1.
  25 ########
  26 # NAME \local %$ref
  27    \local %{\%hash}
  28 EXPECT
  29 Can't localize through a reference at - line 1.
  30 ########
  31 # NAME \local @$ref
  32    \local @{\@hash}
  33 EXPECT
  34 Can't localize through a reference at - line 1.
  35 ########
  36 # NAME calling undef sub belonging to undef GV
  37    my $foosub = \&foo;
  38    undef *foo;
  39    &$foosub;
  40 EXPECT
  41 Undefined subroutine &main::foo called at - line 3.
  42 ########
  43 # NAME calling undef sub resident in its GV
  44    my $foosub = \&foo;
  45    &$foosub;
  46 EXPECT
  47 Undefined subroutine &main::foo called at - line 2.
  48 ########
  49 # NAME calling undef scalar
  50    &{+undef};
  51 EXPECT
  52 Can't use an undefined value as a subroutine reference at - line 1.
  53 ########
  54 # NAME calling undef magical scalar
  55    sub TIESCALAR {bless[]}
  56    sub FETCH {}
  57    tie $tied, "";
  58    &$tied;
  59 EXPECT
  60 Can't use an undefined value as a subroutine reference at - line 4.