diff Lib/IMPL/require.pm @ 205:891c04080658

IMPL::Web::View fixed template selection, release candidate
author sergey
date Thu, 03 May 2012 01:00:02 +0400
parents 6b1dda998839
children 6d8092d8ce1b
line wrap: on
line diff
--- a/Lib/IMPL/require.pm	Wed May 02 17:42:47 2012 +0400
+++ b/Lib/IMPL/require.pm	Thu May 03 01:00:02 2012 +0400
@@ -1,5 +1,6 @@
 package IMPL::require;
 use Scalar::Util qw(set_prototype);
+use strict;
 
 sub import {
 	my ($self, $aliases) = @_;
@@ -8,7 +9,7 @@
 	
 	die "A hash reference is required" unless ref $aliases eq 'HASH';
 	
-	my $caller = $caller;
+	my $caller = caller;
 	
 	no strict 'refs';