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

Change 16464 by pudge@pudge-mobile on 2002/05/08 03:43:39

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

Affected files ...

.... //depot/macperl/macos/lib/Mac/Glue.pm#2 edit
.... //depot/maint-5.6/macperl/macos/lib/Mac/Glue.pm#6 edit

Differences ...

==== //depot/macperl/macos/lib/Mac/Glue.pm#2 (text) ====
Index: macperl/macos/lib/Mac/Glue.pm
--- macperl/macos/lib/Mac/Glue.pm#1~16123~	Tue Apr 23 18:25:17 2002
+++ macperl/macos/lib/Mac/Glue.pm	Tue May  7 20:43:39 2002
@@ -38,9 +38,9 @@
 );
 
 #=============================================================================#
-# $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 @@
 		# 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 @@
 
 =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 @@
 
 =head1 VERSION
 
-v1.01, Tuesday, January 15, 2002
+v1.02, Wednesday, May 7, 2002

==== //depot/maint-5.6/macperl/macos/lib/Mac/Glue.pm#6 (text) ====
Index: macperl/macos/lib/Mac/Glue.pm
--- macperl/macos/lib/Mac/Glue.pm#5~14394~	Wed Jan 23 12:00:35 2002
+++ macperl/macos/lib/Mac/Glue.pm	Tue May  7 20:43:39 2002
@@ -38,9 +38,9 @@
 );
 
 #=============================================================================#
-# $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 @@
 		# 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 @@
 
 =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 @@
 
 =head1 VERSION
 
-v1.01, Tuesday, January 15, 2002
+v1.02, Wednesday, May 7, 2002
End of Patch.