422 |
(defun flymake-perl-init (buffer) |
(defun flymake-perl-init (buffer) |
423 |
(let* ((temp-file (flymake-init-create-temp-buffer-copy |
(let* ((temp-file (flymake-init-create-temp-buffer-copy |
424 |
buffer 'flymake-create-temp-inplace)) |
buffer 'flymake-create-temp-inplace)) |
425 |
(local-file (concat (flymake-build-relative-path |
(local-file (concat (flymake-build-relative-filename |
426 |
(file-name-directory |
(file-name-directory |
427 |
(buffer-file-name |
(buffer-file-name |
428 |
(current-buffer))) |
(current-buffer))) |