diff options
Diffstat (limited to 'scripts/patch-gimp')
-rw-r--r-- | scripts/patch-gimp | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/scripts/patch-gimp b/scripts/patch-gimp deleted file mode 100644 index 6b719a2..0000000 --- a/scripts/patch-gimp +++ /dev/null @@ -1,25 +0,0 @@ -#!/usr/bin/perl - -# Strip out stuff that doesn't belong in the Gimp distribution. - -foreach $file (@ARGV) { - $output = ""; - $do_output = 1; - $tmpfile = "$file.tmp"; - open INPUT, $file or die "Can't open $file: $!\n"; - while (<>) { - if (/@-@-@-@-@ NO-GIMP @-@-@-@-@/) { - $do_output = 0; - } elsif (/@-@-@-@-@ YES-GIMP @-@-@-@-@/) { - $do_output = 1; - } elsif ($do_output) { - $output .= $_; - } - } - close INPUT; - open OUTPUT, ">$tmpfile" or die "Can't open $tmpfile: $!\n"; - print OUTPUT $output or die "Can't write to $tmpfile: $!\n"; - close OUTPUT or die "Can't close $tmpfile: $!\n"; - rename $tmpfile, $file or die "Can't rename $tmpfile to $file: $!\n"; -} - |