Help for this page

Select Code to Download


  1. or download this
    2016-12-04 12:35:05 dpchrist@debian ~/sandbox/perl
$ cat is_typeglob.pl 
...
    print Data::Dumper->Dump([$code, $r, $@], [qw(code r @)]), "\n";
}
# $Id: is_typeglob.pl,v 1.1 2016/12/04 20:35:04 dpchrist Exp $
  2. or download this
    2016-12-04 12:42:14 dpchrist@debian ~/sandbox/perl
$ perl is_typeglob.pl 
...
$code = 'blessed    *ARGV        ';$r = undef;$@ = '';
$code = 'openhandle *ARGV        ';$r = undef;$@ = '';
$code = 'reftype    *ARGV        ';$r = undef;$@ = '';