* Handle maddening new ImageMagick behavior that won't operate on

the file named.
interchange · Dec 7, 2003 · 26386a4 · 26386a4
1 parent 1cd0fa7
commit 26386a4
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/code/SystemTag/image.tag b/code/SystemTag/image.tag
@@ -332,6 +332,11 @@ sub {
 					File::Path::mkpath($dir);
 				}
 
+				my $mgkpath = $newpath;
+				my $ext;
+				$mgkpath =~ s/\.(\w+)$/.mgk/
+					and $ext = $1;
+
 				File::Copy::copy($path, $newpath)
 					or do {
 						logError("%s: Unable to create image '%s'", 'image tag', $newpath);
@@ -354,6 +359,10 @@ sub {
 					last MOGIT;
 				}
 
+				if(-f $mgkpath) {
+					rename $mgkpath, $newpath
+						or die "Could not overwrite image with new one!";
+				}
 				$image =~ s:(/?)([^/]+$):$1$siz/$2:;
 				$path = $newpath;
 			}