--- lib/JiftyModelCreator.pm 2008/06/16 19:40:21 179 +++ lib/JiftyModelCreator.pm 2008/06/16 19:42:44 180 @@ -12,6 +12,9 @@ my ( $ModelName, $model, $create ) = @_; my $model_path = "lib/A3C/Model/$ModelName.pm"; + +$model_path .= '.orig' if -e $model_path; + write_file( $model_path, $model ); print "Created $model_path\n"; @@ -81,6 +84,7 @@ } my $test_path = "t/00-model-$ModelName.t"; +$test_path .= '.orig' if -e $test_path; write_file( $test_path, $test ); print "Created $test_path\n"; chmod 0755, $test_path;