diff options
| author | fukachan <fukachan> | 2001-08-22 03:07:59 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-08-22 03:07:59 +0000 |
| commit | 3c2ac05aa975bf9df8212e2a9e0dc49299fe4a74 (patch) | |
| tree | 9708f245bc3296778615cc6e6b01081af8391870 /fml/lib/FML/Article.pm | |
| parent | 10f0cdb58372123f5986cd7646e1d23c306199bb (diff) | |
| download | fml8-3c2ac05aa975bf9df8212e2a9e0dc49299fe4a74.tar.gz fml8-3c2ac05aa975bf9df8212e2a9e0dc49299fe4a74.tar.bz2 fml8-3c2ac05aa975bf9df8212e2a9e0dc49299fe4a74.zip | |
modified to use File::Spec
Diffstat (limited to 'fml/lib/FML/Article.pm')
| -rw-r--r-- | fml/lib/FML/Article.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/fml/lib/FML/Article.pm b/fml/lib/FML/Article.pm index d6df27ac..993f15e6 100644 --- a/fml/lib/FML/Article.pm +++ b/fml/lib/FML/Article.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Article.pm,v 1.21 2001/04/08 06:42:59 fukachan Exp $ +# $FML: Article.pm,v 1.22 2001/05/27 14:27:53 fukachan Exp $ # package FML::Article; @@ -161,7 +161,9 @@ sub spool_in mkpath( $spool_dir, 0, 0700 ); } - my $file = $spool_dir . "/" . $id; + use File::Spec; + my $file = File::Spec->catfile($spool_dir, $id); + use FileHandle; my $fh = new FileHandle; $fh->open($file, "w"); |