From: Tzafrir Cohen <tzafrir.cohen@xorcom.com>
Subject: Fix passing parameters to _get_attr_optional()
Origin: http://svn.asterisk.org/svn/dahdi/tools/branches/2.3@8631 
---
 xpp/perl_modules/Dahdi/Hardware/USB.pm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

index d73bdbe..edc0f4c 100644
--- a/xpp/perl_modules/Dahdi/Hardware/USB.pm
+++ b/xpp/perl_modules/Dahdi/Hardware/USB.pm
@@ -123,7 +123,7 @@ sub _get_attr($) {
 }
 
 sub _get_attr_optional($$) {
-	my ($attr_file, $def_val) = $@;
+	my ($attr_file, $def_val) = @_;
 
 	eval {return _get_attr($attr_file)};
 	
-- 
1.5.6.5

