[Pspp-cvs] Changes to pspp/src/set.q

[John Darrington]

Index: pspp/src/set.q
diff -u pspp/src/set.q:1.19 pspp/src/set.q:1.20
--- pspp/src/set.q:1.19 Wed Jan 26 01:41:51 2005
+++ pspp/src/set.q      Wed Jan 26 03:48:02 2005
@@ -1106,8 +1106,16 @@
   {
     const char *pager = getenv ("STAT_PAGER");
 
-    if (!pager)  
-       set_pager = xstrdup (getenv ("PAGER") );
+    if (!pager) 
+      {
+       const char *p = getenv ("PAGER");
+       
+       if ( p != NULL ) 
+         set_pager = xstrdup (p);
+       else
+         set_pager = 0;
+      }
+    
 
     if (pager)  
       set_pager = xstrdup (pager);