equal
deleted
inserted
replaced
9 |
9 |
10 open (FILE, $file) || die $!; |
10 open (FILE, $file) || die $!; |
11 undef $/; $text = <FILE>; $/ = "\n"; # slurp whole file |
11 undef $/; $text = <FILE>; $/ = "\n"; # slurp whole file |
12 close FILE || die $!; |
12 close FILE || die $!; |
13 |
13 |
14 $thy = ""; |
|
15 ($path, $thy, $ext) = ($file =~ m,^(.*/)?(\w+)(\.\w+)?$,); |
14 ($path, $thy, $ext) = ($file =~ m,^(.*/)?(\w+)(\.\w+)?$,); |
16 |
15 |
17 $_ = $text; |
16 $_ = $text; |
18 |
17 |
19 s/^\s*goalw\b\s*\bthy\b/Goalw/mg; |
18 s/^[ \t]*goalw\b\s*\bthy\b/Goalw/mg; |
20 s/^\s*goalw\b\s*\b$thy\.thy\b/Goalw/mg; |
19 s/^[ \t]*goalw\b\s*\b$thy\.thy\b/Goalw/mg; |
21 s/^\s*goal\b\s*\bthy\b/Goal/mg; |
20 s/^[ \t]*goal\b\s*\bthy\b/Goal/mg; |
22 s/^\s*goal\b\s*\b$thy\.thy\b/Goal/mg; |
21 s/^[ \t]*goal\b\s*\b$thy\.thy\b/Goal/mg; |
23 |
22 |
24 |
23 |
25 $result = $_; |
24 $result = $_; |
26 |
25 |
27 if ($text ne $result) { |
26 if ($text ne $result) { |