Make sure paths with multiple .'s work properly

lib/paperclip/attachment.rb

@@ -137,7 +137,7 @@ module Paperclip
                            attachment.instance.class.name.underscore.pluralize
                            attachment.instance.class.name.underscore.pluralize
                          end,
                          end,
         :basename     => lambda do |attachment,style|
         :basename     => lambda do |attachment,style|
-                           attachment.original_filename.gsub(/\.(.*?)$/, "")
+                           attachment.original_filename.gsub(File.extname(attachment.original_filename), "")
                          end,
                          end,
         :extension    => lambda do |attachment,style| 
         :extension    => lambda do |attachment,style| 
                            ((style = attachment.styles[style]) && style.last) ||
                            ((style = attachment.styles[style]) && style.last) ||

test/test_attachment.rb

@@ -111,6 +111,15 @@ class AttachmentTest < Test::Unit::TestCase
       assert_equal "/tests/blah/missing.png", @attachment.url(:blah)
       assert_equal "/tests/blah/missing.png", @attachment.url(:blah)
     end
     end
     
     
+    should "return the proper path when filename has a single .'s" do
+      assert_equal "./test/../tmp/tests/dummies/original/41/5k.png", @attachment.path
+    end
+    
+    should "return the proper path when filename has multiple .'s" do
+      @instance.stubs(:[]).with(:test_file_name).returns("5k.old.png")      
+      assert_equal "./test/../tmp/tests/dummies/original/41/5k.old.png", @attachment.path
+    end
+
     context "when expecting three styles" do
     context "when expecting three styles" do
       setup do
       setup do
         styles = {:styles => { :large  => ["400x400", :png],
         styles = {:styles => { :large  => ["400x400", :png],