correctly escape '

master
Benjamin Schieder 2017-04-26 12:49:45 +01:00
parent 0afe8aefd2
commit a6feb5618d
1 changed files with 1 additions and 1 deletions

View File

@ -77,7 +77,7 @@ FEED: foreach my $feed (@feeds){
$status =~ s/{Modified}/$entry{modified}/g; $status =~ s/{Modified}/$entry{modified}/g;
$status =~ s/{Tags}/$entry{tags}/g; $status =~ s/{Tags}/$entry{tags}/g;
$status =~ s/'/"/g; # TODO $status =~ s/'/'\\''/g;
open(DATA, "./post_status.bash '$user->{data}->{access_token}' '$user->{data}->{instance}' '$status'|"); open(DATA, "./post_status.bash '$user->{data}->{access_token}' '$user->{data}->{instance}' '$status'|");
my $reply = ""; my $reply = "";