X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=helm%2Fmeta_style%2Fsubst.pl;fp=helm%2Fmeta_style%2Fsubst.pl;h=0000000000000000000000000000000000000000;hp=27ca245d59f6d53ab45718f5e7c515dabac3bd41;hb=3ef089a4c58fbe429dd539af6215991ecbe11ee2;hpb=1c7fb836e2af4f2f3d18afd0396701f2094265ff diff --git a/helm/meta_style/subst.pl b/helm/meta_style/subst.pl deleted file mode 100755 index 27ca245d5..000000000 --- a/helm/meta_style/subst.pl +++ /dev/null @@ -1,17 +0,0 @@ -#!/usr/bin/perl - - -open(FILE, $ARGV[2]) || die("Error: cannot open \"$ARGV[2]\" for reading.\n"); -@file = ; -close(FILE); - -open(FILE, ">$ARGV[2]"); - -foreach $line (@file) -{ - $line =~ s/$ARGV[0]/$ARGV[1]/g; - - print FILE "$line"; -} - -close(FILE);