[BACK]Return to MakeTorrents.pl CVS log [TXT][DIR] Up to [local] / openbsd / OpenBSDTorrents

Diff for /openbsd/OpenBSDTorrents/MakeTorrents.pl between version 1.26 and 1.27

version 1.26, 2010/03/22 21:16:02 version 1.27, 2010/05/19 23:19:43
Line 1 
Line 1 
 #!/usr/bin/perl  #!/usr/bin/perl
 # -T  # -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 strict;
 use warnings;  use warnings;
 use diagnostics;  use diagnostics;
Line 32 
Line 32 
     #return undef if $basedir =~ /packages/;      #return undef if $basedir =~ /packages/;
   
     my ( $dirs, $files ) = Get_Files_and_Dirs($basedir);      my ( $dirs, $files ) = Get_Files_and_Dirs($basedir);
       if ( -f $basedir) {
           $basedir =~ s{/[^/]+$}{}xms;
       }
     if (@$files) {      if (@$files) {
         Make_Torrent( $basedir, $files );          Make_Torrent( $basedir, $files );
     }      }
Line 56 
Line 59 
         die "Invalid characters in dir '$basedir'";          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";          print "Too few files in $basedir, skipping . . .\n";
         return undef;          return undef;
     }      }
Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>