Help for this page

Select Code to Download


  1. or download this
    > perl -MO=Deparse -E'if (1) { label: say 1;}; goto label'
BEGIN {
...
    label: say 1
};
goto label;
  2. or download this
    perl -wE'do { label: say 1;}; goto label'
  3. or download this
    perl -wE'my $x=0;do { label: say $x++; die if $x>1}; goto label'
0
1
Died at -e line 1.
  4. or download this
    [davido]: LanX: perl -E 'goto IN; do{ IN: say "Hello world\n";};' does
+ produce the warning on 5.16.2.