mkpath #3

  • //
  • guest/
  • barrie_slaymaker/
  • safari/
  • src/
  • conf/
  • bin/
  • mkpath
  • View
  • Commits
  • Open Download .zip Download (390 B)
#!/usr/bin/perl -w
#
# mkpath for Safari
# Copyright (c) 1999 by Barrie Slaymaker, [email protected]
#
# You may distribute under the terms of either the GNU General Public
# License or the Artistic License, as specified in the README file.
#


use File::Path ;
use File::Basename ;

for ( @ARGV ) {
   ( undef, $dir ) = fileparse( $_ ) ;
   $dir =~ s@/+$@@ ;
   mkpath( $dir, 0, 0775 ) ;
}
# Change User Description Committed
#3 168 Barrie Slaymaker Added YAPC paper, slides
#2 165 Barrie Slaymaker Applied Greg KH's license patch.
#1 162 Barrie Slaymaker First code & documentation checkin