Commit a456c000 authored by yanmaani's avatar yanmaani
Browse files

ida-free: fix formatting

parent 5484549d
Loading
Loading
Loading
Loading
+6 −6
Original line number Diff line number Diff line
@@ -40,12 +40,12 @@
  # available to us for interoperability purposes.
}:
let
  patchScript = lib.concatMapStringsSep "\n" (p:
  patchScript = lib.concatMapStringsSep "\n" (
    p:
    let
      forcecntDecl =
        lib.optionalString (p ? assertCount)
          "my $forcecnt = ${toString p.assertCount};";
          in ''
      forcecntDecl = lib.optionalString (p ? assertCount) "my $forcecnt = ${toString p.assertCount};";
    in
    ''
      perl -0777 -pi -e '${forcecntDecl} my $cnt = (s/\Q''${\pack("H*","${p.from}")}\E/''${\pack("H*","${p.to}")}/g) || 0; die "Expected $forcecnt substitutions, did $cnt\n" if defined $forcecnt && $cnt != $forcecnt' "$IDADIR/${p.filename}"
    ''
  ) hexPatches;