===================================================================
RCS file: /cvs/openbsd/OpenBSDTorrents/MakeTorrents.pl,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -r1.26 -r1.27
--- openbsd/OpenBSDTorrents/MakeTorrents.pl	2010/03/22 21:16:02	1.26
+++ openbsd/OpenBSDTorrents/MakeTorrents.pl	2010/05/19 23:19:43	1.27
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 # -T
-#$RedRiver: MakeTorrents.pl,v 1.25 2010/03/22 20:15:06 andrew Exp $
+#$RedRiver: MakeTorrents.pl,v 1.26 2010/03/22 20:16:02 andrew Exp $
 use strict;
 use warnings;
 use diagnostics;
@@ -32,6 +32,9 @@
     #return undef if $basedir =~ /packages/;
 
     my ( $dirs, $files ) = Get_Files_and_Dirs($basedir);
+    if ( -f $basedir) {
+        $basedir =~ s{/[^/]+$}{}xms;
+    }
     if (@$files) {
         Make_Torrent( $basedir, $files );
     }
@@ -56,7 +59,8 @@
         die "Invalid characters in dir '$basedir'";
     }
 
-    if ( $#{$files} < $OBT->{MIN_FILES} ) {
+    if ( $#{$files} < $OBT->{MIN_FILES} 
+      && $files->[0] !~/$INSTALL_ISO_REGEX/xms ) {
         print "Too few files in $basedir, skipping . . .\n";
         return undef;
     }