more general fix for hanging commas

eprintsug · Jun 21, 2018 · c6a89c4 · c6a89c4
1 parent 244ffb7
commit c6a89c4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/perl_lib/EPrints/Plugin/Export/JSON.pm b/perl_lib/EPrints/Plugin/Export/JSON.pm
@@ -182,7 +182,7 @@ sub _epdata_to_json
 
         #strip any commas hanging round at the end of the string (after we have expunged the non-exportable subs, this may happen)
        	$json_str =~ s/\n,\n/\n/m;
-
+        $json_str =~ s/,\n$//m;
 		return $json_str;
 	}
 	elsif( $epdata->isa( "EPrints::DataObj" ) )