[freeside-commits] freeside/FS/FS/part_export http_status.pm, 1.1.2.4, 1.1.2.5

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS/part_export
In directory wavetail.420.am:/tmp/cvs-serv20223/FS/FS/part_export

Modified Files:
      Tag: FREESIDE_2_3_BRANCH
	http_status.pm 
Log Message:
DSL status pulling, RT#13656

Index: http_status.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_export/http_status.pm,v
retrieving revision 1.1.2.4
retrieving revision 1.1.2.5
diff -u -w -d -r1.1.2.4 -r1.1.2.5
--- http_status.pm	11 Nov 2011 23:04:21 -0000	1.1.2.4
+++ http_status.pm	11 Nov 2011 23:20:47 -0000	1.1.2.5
@@ -27,12 +27,14 @@
 sub export_getstatus {
   my( $self, $svc_x, $htmlref, $hashref ) = @_;
 
-  my $url = $self->option('url');
+  my $url;
+  my $urlopt = $self->option('url');
+  no strict 'vars';
   {
     no strict 'refs';
     ${$_} = $svc_x->getfield($_) foreach $svc_x->fields;
 
-    $url = eval(qq("$url"));
+    $url = eval(qq("$urlopt"));
   }
 
   my $req = HTTP::Request::Common::GET( $url );