fix checksum recalc

[l2tpns.git] / scripts / l2tpns-capture

diff --git a/scripts/l2tpns-capture b/scripts/l2tpns-capture
index d675518..6b31daf 100644 (file)
--- a/scripts/l2tpns-capture
+++ b/scripts/l2tpns-capture
@@ -12,7 +12,7 @@ use IO::File;
 use IO::Socket;
 use Time::HiRes 'gettimeofday';
 
 use IO::Socket;
 use Time::HiRes 'gettimeofday';
 

-(my $cmd = $0) =~ s!.*//!!;
+(my $cmd = $0) =~ s!.*/!!;

 
 die "Usage: $cmd PREFIX PORT\n" unless @ARGV == 2 and $ARGV[1] =~ /^\d+$/;
 
 
 die "Usage: $cmd PREFIX PORT\n" unless @ARGV == 2 and $ARGV[1] =~ /^\d+$/;