Update of /cvsroot/po4a/po4a/lib/Locale/Po4a In directory haydn:/tmp/cvs-serv6758 Modified Files: Po.pm TransTractor.pm Log Message: Do not create the path to file when no path specified (ie, file local) since the method fails miserably in that case Index: Po.pm =================================================================== RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Po.pm,v retrieving revision 1.21 retrieving revision 1.22 diff -u -d -r1.21 -r1.22 --- Po.pm 8 Aug 2004 11:31:07 -0000 1.21 +++ Po.pm 8 Aug 2004 19:58:48 -0000 1.22 @@ -224,11 +224,12 @@ } else { # make sure the directory in which we should write the localized file exists my $dir = $filename; - $dir =~ s|/[^/]*$||; + if ($dir =~ m|/|) { + $dir =~ s|/[^/]*$||; - File::Path::mkpath($dir, 0, 0755) # Croaks on error - if (length ($dir) && ! -e $dir); - + File::Path::mkpath($dir, 0, 0755) # Croaks on error + if (length ($dir) && ! -e $dir); + } open $fh,">$filename" || croak (sprintf((dgettext("po4a","Can't write to %s: %s"),$filename,$!))."\n"); } Index: TransTractor.pm =================================================================== RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/TransTractor.pm,v retrieving revision 1.31 retrieving revision 1.32 diff -u -d -r1.31 -r1.32 --- TransTractor.pm 7 Aug 2004 23:59:02 -0000 1.31 +++ TransTractor.pm 8 Aug 2004 19:58:48 -0000 1.32 @@ -381,11 +381,12 @@ } else { # make sure the directory in which we should write the localized file exists my $dir = $filename; - $dir =~ s|/[^/]*$||; + if ($dir =~ m|/|) { + $dir =~ s|/[^/]*$||; - File::Path::mkpath($dir, 0, 0755) # Croaks on error - if (length ($dir) && ! -e $dir); - + File::Path::mkpath($dir, 0, 0755) # Croaks on error + if (length ($dir) && ! -e $dir); + } open $fh,">$filename" || croak (sprintf((dgettext("po4a","can't write to %s: %s"),$filename,$!))."\n"); }