From e899f762498c48116acd20c2aad29ea997f06fba Mon Sep 17 00:00:00 2001 From: Max Baker <> Date: Thu, 17 Feb 2005 01:45:46 +0000 Subject: [PATCH] aesthetic.. remove sn from the beg. of model names --- Info/Layer3/Foundry.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Info/Layer3/Foundry.pm b/Info/Layer3/Foundry.pm index 99bf0114..5f018a7f 100644 --- a/Info/Layer3/Foundry.pm +++ b/Info/Layer3/Foundry.pm @@ -203,7 +203,8 @@ sub model { $model = $1 if $desc =~ /\s+([a-z]{2}\d{4})\D/i; $model = $1 if $desc =~ /\b(FW[A-Z\d]+)/; - + + $model =~ s/^sn//; return $model; }