From 9add3d3d23a38ce3b0a5f3ede07580d76b040a2c Mon Sep 17 00:00:00 2001
From: Jonas Smedegaard <dr@jones.dk>
Date: Sat, 8 Aug 2009 12:41:29 +0200
Subject: Fix setting path to Markdown files.

---
 localmarkdown2sms | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'localmarkdown2sms')

diff --git a/localmarkdown2sms b/localmarkdown2sms
index 3e42e05..54e3cc9 100755
--- a/localmarkdown2sms
+++ b/localmarkdown2sms
@@ -21,6 +21,7 @@
 
 
 use strict;
+use File::Spec;
 use File::Slurp;
 use Time::Duration::Parse;
 #use Proc::Daemon;
@@ -35,7 +36,7 @@ my ($path) = shift @ARGV;
 foreach my $file (read_dir( $path )) {
     my ($key, $i);
     next unless ($file =~ /\.mdwn$/);
-    foreach my $line (read_file( '$path/' . $file )) {
+    foreach my $line (read_file( File::Spec->catfile($path, $file))) {
 	chomp $line;
 	my $content;
 	# headline
-- 
cgit v1.2.3