# This file is not there so it doesn't match and afterwards $! ist # set. OK my $pat2 = "this_will_miss_in_globbing"; print "\nPATT $pat2\n"; print "PRE ERR: ", Dumper($!); @list = bsd_glob($pat2, GLOB_ERR | !GLOB_NOCHECK); print "POST ERR: ", Dumper($!); print "GLOB_ERROR: ", Dumper(GLOB_ERROR); print Dumper(\@list); print "\n"; # This file exists so the match is a success # afterwards $! ist still set which is OK my $pat3 = "passwords.dat"; print "\nPATT $pat3\n"; print "PRE ERR: ", Dumper($!); @list = bsd_glob($pat3, GLOB_ERR | !GLOB_NOCHECK); print "POST ERR: ", Dumper($!); print "GLOB_ERROR: ", Dumper(GLOB_ERROR); print Dumper(\@list); print "\n"; # This resets $! back to normal ?? my $pat4 = "*.dat"; print "\nPATT $pat4\n"; print "PRE ERR: ", Dumper($!); @list = bsd_glob($pat4, GLOB_ERR | !GLOB_NOCHECK); print "POST ERR: ", Dumper($!); print "GLOB_ERROR: ", Dumper(GLOB_ERROR); print Dumper(\@list); print "\n";