wrong environment when evaluate expression in dplyr

[hs3180]

func1 <- function() {
  func2 <- function(x) floor(x)
  mutate(mtcars, func2(mpg / sum(mpg)))
}
func1()

walks out

could not find function "func2" 

it works good when I remove sum or move the func2 into .GlobalEnv