Skip to content
GitLab
Menu
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
awit-frameworks
awit-perl-toolkit
Commits
bd228622
Commit
bd228622
authored
Aug 30, 2010
by
Nigel Kukard
Browse files
* Make sure variables are initilized, fixed some IPv6 issues
- Robert Anderson <randerson@lbsd.net>
parent
fc922eac
Changes
1
Hide whitespace changes
Inline
Side-by-side
awitpt/netip.pm
View file @
bd228622
...
...
@@ -285,7 +285,7 @@ sub is_valid
}
# Does the IP address have more than one '::' pattern ?
my
$count
;
my
$count
=
0
;
while
(
$ip
=~
/::/g
)
{
$count
++
;
}
...
...
@@ -443,7 +443,7 @@ sub _clean_ip
}
# Does the IP address have more than one '::' pattern ?
my
$count
;
my
$count
=
0
;
while
(
$self
->
{'
raw_ip
'}
=~
/::/g
)
{
$count
++
;
}
...
...
@@ -453,7 +453,7 @@ sub _clean_ip
}
# Expand address
my
$tempIP
;
my
$tempIP
=
$self
->
{'
raw_ip
'}
;
if
(
$numOctets
<
8
)
{
# If there is no :: return 0
...
...
@@ -473,8 +473,6 @@ sub _clean_ip
}
my
$octets
=
join
('
:
',
@missingOctets
);
$tempIP
=
$self
->
{'
raw_ip
'};
# Replace ::
$tempIP
=~
s/::/:$octets:/g
;
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment