diff options
Diffstat (limited to 'bin/perload')
-rwxr-xr-x | bin/perload | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/bin/perload b/bin/perload index e71cbdd..a0ed31c 100755 --- a/bin/perload +++ b/bin/perload @@ -117,6 +117,8 @@ while (<>) { $fn_package = $current_package; $fn_basename = $function; } + die "line $.: duplicate routine ${fn_package}::$fn_basename\n" + if $Seen{"${fn_package}::$fn_basename"}++; # Keep leading function comment foreach (@Comment) { push(@Data, $_) unless $autoload; |