Allow for :file/:line in DEPRECATED

This should make it easier to issue DEPRECATED messages at compile time
rakudo · May 19, 2015 · 29a4089 · 29a4089
1 parent a552010
commit 29a4089
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/core/Deprecations.pm b/src/core/Deprecations.pm
@@ -67,7 +67,7 @@ class Deprecation {
     method obsolete (|c) { Obsolete.new(|c) }
 }
 
-sub DEPRECATED ( $alternative, $from?, $removed?, :$up = 1, :$what ) {
+sub DEPRECATED($alternative,$from?,$removed?,:$up = 1,:$what,:$file,:$line) {
 
     # not deprecated yet
     state $version = $*PERL.compiler.version;
@@ -104,7 +104,7 @@ sub DEPRECATED ( $alternative, $from?, $removed?, :$up = 1, :$what ) {
     $dep = %DEPRECATIONS{$dep.WHICH} //= $dep;
 
     # update callsite
-    $dep.callsites{$callsite.file.IO}{$callsite.line}++;
+    $dep.callsites{$file // $callsite.file.IO}{$line // $callsite.line}++;
 }
 
 END {