r64495 - /trunk/libnetaddr-ip-perl/debian/patches/autosplit.patch

[periapt-guest at users.alioth.debian.org]

Author: periapt-guest
Date: Tue Nov  2 21:01:04 2010
New Revision: 64495

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=64495
Log:
use vars works

Modified:
    trunk/libnetaddr-ip-perl/debian/patches/autosplit.patch

Modified: trunk/libnetaddr-ip-perl/debian/patches/autosplit.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnetaddr-ip-perl/debian/patches/autosplit.patch?rev=64495&op=diff
==============================================================================
--- trunk/libnetaddr-ip-perl/debian/patches/autosplit.patch (original)
+++ trunk/libnetaddr-ip-perl/debian/patches/autosplit.patch Tue Nov  2 21:01:04 2010
@@ -5,14 +5,15 @@
 Forwarded: no
 --- a/Lite/Util/Util.pm
 +++ b/Lite/Util/Util.pm
-@@ -115,8 +115,8 @@
+@@ -115,8 +115,9 @@
  
  # allow user to choose upper or lower case
  
 -our $n2x_format = "%X:%X:%X:%X:%X:%X:%X:%X";
 -our $n2d_format = "%X:%X:%X:%X:%X:%X:%D.%D.%D.%D";
-+my $n2x_format = "%X:%X:%X:%X:%X:%X:%X:%X";
-+my $n2d_format = "%X:%X:%X:%X:%X:%X:%D.%D.%D.%D";
++use vars qw($n2x_format $n2d_format);
++$n2x_format = "%X:%X:%X:%X:%X:%X:%X:%X";
++$n2d_format = "%X:%X:%X:%X:%X:%X:%D.%D.%D.%D";
  
  sub upper { $n2x_format = uc($n2x_format); $n2d_format = uc($n2d_format); }
  sub lower { $n2x_format = lc($n2x_format); $n2d_format = lc($n2d_format); }