regression_test/XML/NegativeTest/indent.pl

   1 #!/usr/bin/perl -wpli.orig
   2 ###############################################################################
   3 # Copyright (c) 2000-2014 Ericsson Telecom AB
   4 # All rights reserved. This program and the accompanying materials
   5 # are made available under the terms of the Eclipse Public License v1.0
   6 # which accompanies this distribution, and is available at
   7 # http://www.eclipse.org/legal/epl-v10.html
   8 ###############################################################################
   9
  10 use strict;
  11
  12 s!\\n!\n!g;
  13 s!\\t!\t!g;
  14 s!\("<!("\n<!g;
  15
  16 s!{ {!{\n  {!g;
  17 s!}, {!},\n  {!g;
  18 s!} }!}\n}!g;
  19