Author: pebender
Date: Sun Sep 7 15:44:06 2008
New Revision: 3723
Modified:
trunk/gar-minimyth/script/perl/perl-MiniMyth/checksums
trunk/gar-minimyth/script/perl/perl-MiniMyth/files/MiniMyth.pm
Log:
- Added missing quotes and fixed broken directory mode setting in
MiniMyth.pm.
Modified: trunk/gar-minimyth/script/perl/perl-MiniMyth/checksums
==============================================================================
--- trunk/gar-minimyth/script/perl/perl-MiniMyth/checksums (original)
+++ trunk/gar-minimyth/script/perl/perl-MiniMyth/checksums Sun Sep 7
15:44:06 2008
@@ -1 +1 @@
-6c94928798896637080fc5f312fa9324 download/MiniMyth.pm
+5da635408e3e707a8dfab6867603abcf download/MiniMyth.pm
Modified: trunk/gar-minimyth/script/perl/perl-MiniMyth/files/MiniMyth.pm
==============================================================================
--- trunk/gar-minimyth/script/perl/perl-MiniMyth/files/MiniMyth.pm
(original)
+++ trunk/gar-minimyth/script/perl/perl-MiniMyth/files/MiniMyth.pm Sun Sep
7 15:44:06 2008
@@ -1843,10 +1843,10 @@
system(qq(/bin/tar -C $local_dir -jxf $local_dir/$codecs_file));
unlink(qq($local_dir/$codecs_file));
- if (! -d $local_dir/$codecs_base)
+ if (! -d "$local_dir/$codecs_base")
{
my $file_found = 0;
- if (opendir(DIR, $local_dir/$codecs_base))
+ if (opendir(DIR, "$local_dir/$codecs_base"))
{
foreach (grep(! /^\./, (readdir(DIR))))
{
@@ -1934,7 +1934,7 @@
my $local_file = $local_dir . '/' . $file;
unlink($local_file);
- File::Path::mkpath($local_dir, { mode => 700 });
+ File::Path::mkpath($local_dir, { mode => 0700 });
if (! -d $local_dir)
{
return 0;
@@ -1992,7 +1992,7 @@
my $local_file = $local_dir . '/' . $file;
unlink($local_file);
- File::Path::mkpath($local_dir, { mode => 700 });
+ File::Path::mkpath($local_dir, { mode => 0700 });
if (! -d $local_dir)
{
return 0;
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups
"minimyth-commits" group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to [EMAIL PROTECTED]
For more options, visit this group at
http://groups.google.com/group/minimyth-commits?hl=en
-~----------~----~----~----~------~----~------~--~---
