abbrev

diff --git a/parse-input-graph b/parse-input-graph
index 8644ea3491e1adfe7a6d53d80de83cb9a01ab716..9d2dbee7bca008b98573f7659eab6ae4475f37f4 100755 (executable)
--- a/parse-input-graph
+++ b/parse-input-graph
@@ -265,7 +265,8 @@ sub o { print @_ or die $!; }
 sub plag_prv ($) {
     my ($vi) = @_;
     my $t = $vertex[$vi]{Text};
-    $t =~ s/\n/ | /g;
+    $t = $` if $t =~ m/\n/;
+    $t =~ s/ //g;
     return "\"$t\"";
 }