Don't open dirs in Mac::Glue, MacPerl Bug #529108

p4raw-id: //depot/macperl@16464

diff --git a/macos/lib/Mac/Glue.pm b/macos/lib/Mac/Glue.pm
index 7eddf01..be445b6 100644 (file)
--- a/macos/lib/Mac/Glue.pm
+++ b/macos/lib/Mac/Glue.pm
@@ -38,9 +38,9 @@ use vars qw(
 );
 
 #=============================================================================#
-# $Id: Glue.pm,v 1.5 2002/01/15 05:16:59 pudge Exp $
-($REVISION)    = ' $Revision: 1.5 $ ' =~ /\$Revision:\s+([^\s]+)/;
-$VERSION       = '1.01';
+# $Id: Glue.pm,v 1.6 2002/05/08 02:56:38 pudge Exp $
+($REVISION)    = ' $Revision: 1.6 $ ' =~ /\$Revision:\s+([^\s]+)/;
+$VERSION       = '1.02';
 @ISA           = 'Exporter';
 @EXPORT                = ();
 $RESERVED      = 'REPLY|SWITCH|MODE|PRIORITY|TIMEOUT|RETOBJ|ERRORS|CALLBACK|CLBK_ARG';
@@ -1018,6 +1018,7 @@ sub _open_others {
                # maybe add a new file type for glues?  i can do that now,
                # because i am special or something.
                for (readdir DIR) {
+                       next if -d;
                        next if $_ eq "Icon\015";
                        next if /\.pod$/;
                        tie my %db, 'MLDBM', $_, O_RDONLY or confess "Can't tie '$_': $!";
@@ -1932,6 +1933,10 @@ Add dynamic fetching of glues?
 
 =over 4
 
+=item v1.02, Tuesday, May 7, 2002
+
+Skip directories when opening dialect/OSAX glues.
+
 =item v1.01, Tuesday, January 15, 2002
 
 Clean up a bit for 5.6.
@@ -2209,4 +2214,4 @@ Interapplication Communication.
 
 =head1 VERSION
 
-v1.01, Tuesday, January 15, 2002
+v1.02, Wednesday, May 7, 2002