[Openinteract-dev] 'mkdir' in OpenInteract::Startup

[Chris W. <ch...@cw...>]

Randal just pointed out to me that running under 5.005_03 you get an
error in OpenInteract::Startup:

---------------
Not enough arguments for mkdir at
/usr/lib/perl5/site_perl/5.005/OpenInteract/Startup.pm line 250, near
"$lib_dir )"
---------------

In 5.005x mkdir() takes two arguments (NAME, MASK) but in 5.6x the
second argument is optional, defaulting to 0777.

The fix is simple:

*** Startup.pm~	Wed Nov 28 00:55:07 2001
--- Startup.pm	Fri Nov 30 10:22:22 2001
----------------------------------------
*** 247,253 ****
      unshift @INC, $lib_dir;
  
      File::Path::rmtree( $lib_dir ) if ( -d $lib_dir );
!     mkdir( $lib_dir );
  
      my $site_repos = $REPOS_CLASS->fetch( undef,
                                            { directory => $base_config->{website_dir} } );
--- 247,253 ----
      unshift @INC, $lib_dir;
  
      File::Path::rmtree( $lib_dir ) if ( -d $lib_dir );
!     mkdir( $lib_dir, 0777 );
  
      my $site_repos = $REPOS_CLASS->fetch( undef,
                                            { directory => $base_config->{website_dir} } );
----------------------------------------

and has already been made in CVS. While the system won't run without
OpenInteract::Startup, I'm ambivalent about issuing a new release for
just this. What do you think?

Chris

-- 
Chris Winters (ch...@cw...)
Building enterprise-capable snack solutions since 1988.